sig
  val sleep : float -> unit Lwt.t
  val yield : unit -> unit Lwt.t
  val run : '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 -> ('-> unit Lwt.t) -> '-> unit
end