open System
open System.Text.RegularExpressions

let url2Stream url =
    let uri = System.Uri url
    let request = Net.WebRequest.Create uri
    let response = request.GetResponse ()
    response.GetResponseStream ()

let readUrl url =
    let stream = url2Stream url
    let getStream = new System.IO.StreamReader(stream)
    let htmlInString = getStream.ReadToEnd ()
    htmlInString
let url = "http://fsharp.org"

let countLinks (url:string) :int =
    let compare = Regex.Matches(readUrl url,"<a")
    compare.Count

printfn "%A" (countLinks url)