http_listener.fs

open System.Net
open System.Text

let listen url =
    use listener = new HttpListener()
    listener.Prefixes.Add(url)

    listener.Start();

    let context = listener.GetContext()
    let request = context.Request

    let response = context.Response

    let responseString = "Hello world!";
    let buffer = Encoding.UTF8.GetBytes(responseString);

    response.ContentLength64 <- buffer.LongLength
    use output = response.OutputStream
    output.Write(buffer, 0, buffer.Length);
    output.Flush()
    output.Close()
    listener.Stop()    


do listen "http://*:1201/"