[<EntryPoint>]
let main argv =
    Reactor.Loop.Start();
    (* create a interval to tick every now and again. *)
    let interval = Reactor.Interval.Create(fun () ->
        printf "tick\n"
    , 2000.0)

    (* testing *)
    Reactor.Http.Server.Create(fun context ->
        context.Response.Write("hello") |> ignore
        context.Response.End() |> ignore
    ).Listen(5000)
    0