sig
  val sleep : float -> unit Lwt.t
  val yield : unit -> unit Lwt.t
  val run : 'a Lwt.t -> 'a
  val http_get : string -> (string * string) list -> (int * string) Lwt.t
  val http_post : string -> (string * string) list -> (int * string) Lwt.t
  val http_get_post :
    string ->
    (string * string) list -> (string * string) list -> (int * string) Lwt.t
  val http_post_with_content_type :
    string -> string -> (string * string) list -> (int * string) Lwt.t
  val register_event : JSOO.obj -> string -> ('a -> unit Lwt.t) -> 'a -> unit
end