sig
  val sleep : float -> unit Lwt.t
  val yield : unit -> unit Lwt.t
  val http_request :
    ?headers:(string * string) list ->
    [ `Get | `Post of string ] -> string -> Dom.xMLHttpRequest Lwt.t
end