sig
  val add_video_mode_var : (unit -> unit) -> unit
  val add_chat : unit -> unit
  val vertical_split : unit -> Video.t list
  val main : (unit -> unit) -> (unit -> unit) -> unit
  val main_no_quit : (unit -> unit) -> (unit -> unit) -> int
  val delay : float Pervasives.ref
  val add_net_action :
    ?mode:Input.mode -> string -> (int -> unit) -> (int -> unit) -> unit
  val add_action : ?mode:Input.mode -> bool -> string -> int -> bool
  val add_action_pair :
    ?mode:Input.mode -> bool -> string -> string -> int -> int
  val add_action_group :
    ?mode:Input.mode -> bool -> string list -> int -> string list
  val add_sprite_set_info : 'a Sprite.t Serialize.t -> 'a Sprite.set -> unit
end