System.Console.WriteLine("Hej LNU")
System.Console.WriteLine("Hej Kalmar också")


open System.Net
open System
open System.Text.RegularExpressions

let http url =
    let wc = new WebClient()
    wc.DownloadString(new Uri(url))

let lnuHtml = http "http://www.lnu.se" 

///////////////////////

let Show x = printfn "%A" x
http "http://www.lnu.se" |> Show


/////////////////////

let linkPat = "href=\s*\"[^\"h]*(http://[^&\"]*)\""
Regex.Matches(lnuHtml,linkPat) |> Show

/////////////////////

let matchInUrl regex url = 
    (http url, regex) |> Regex.Matches

matchInUrl "<div[^>]*>" "http://www.lnu.se"

// Currying
let linksInUrl = matchInUrl linkPat

linksInUrl "http://www.lnu.se"