F# Web server

Fsharp_web_server.fs

let server = HttpServer((fun(headers, close, svr, sd) -> 
    let header = sprintf "HTTP/1.1 200 OK\r\nContent-Type: text/plain\r\nContent-Length: 20\r\nConnection: close\r\nServer: Fracture\r\nDate: %s\r\n\r\n" (DateTime.UtcNow.ToShortDateString())
    let body = "Hello world.\r\nHello."
    let encoded = System.Text.Encoding.ASCII.GetBytes(header + body)
    do svr.Send(sd.RemoteEndPoint, encoded, true)), body = fun(body, svr, sd) -> 
        Debug.WriteLine( sprintf "%s" (Text.Encoding.ASCII.GetString(body.Array)) ) )

server.Listen(6667)
printfn "Http Server started"
Console.ReadKey() |> ignore