sig

  val printd : int -> ('a, unit, string, unit) Stdlib.format4 -> 'a

  val debug : bool Stdlib.ref

  val debug_code : int Stdlib.ref

  val debug_thread : int

  val debug_warning : int

  val debug_graphics : int

  val debug_error : int

  val debug_io : int

  val debug_memory : int

  val debug_board : int

  val debug_event : int

  val debug_custom : int

  val pi : float

  val round : float -> int

  val imax : int -> int -> int

  val imin : int -> int -> int

  val go : 'a Tsdl.Sdl.result -> 'a

  val map_option : 'a option -> ('a -> 'b) -> 'b option

  val do_option : 'a option -> ('a -> unit) -> unit

  val default : 'a option -> 'a -> 'a

  exception None_option

  val remove_option : 'a option -> 'a

  val ( let@ ) : ('a -> 'b) -> 'a -> 'b

  val run : (unit -> 'a) -> 'a

end