sig
  val system_inactive : unit -> bool
  val system_sleep : int -> unit
  val system_set_user : string -> unit
  val system_stop : unit -> unit
  val system_stopped : unit -> bool
  val system_add_safe : string -> string -> unit
  val system_check_safe : string -> string -> bool
  val set_server_parm : string -> string -> unit
  val socket_create : int -> int -> int
  val socket_loop : unit -> bool
  val socket_create_ssl : int -> int -> string -> string -> string -> int
  val socket_listen : unit -> unit
  val socket_close : int -> unit
  val socket_current : unit -> int
  val conn_loop : unit -> bool
  val conn_header : int -> int -> int
  val conn_send : int -> unit
  val conn_var : string -> string -> string
  val conn_var_list : string -> string -> string
  val conn_var_loop : string -> string
  val conn_cookie : string -> string -> int -> unit
  val conn_calc :
    (string -> string -> Html.t list) -> string -> string -> bool
  val conn_close : unit -> unit
  val conn_file : string -> string -> int -> bool
  val conn_parms : unit -> string
end