module Main:The Main Event Loopsig..end
type t
val create : bool -> tval iteration : bool -> boolval pending : unit -> boolval is_running : t -> boolval quit : t -> unitval destroy : t -> unittypelocale_category =[ `ALL | `COLLATE | `CTYPE | `MESSAGES | `MONETARY | `NUMERIC | `TIME ]
val setlocale : locale_category -> string option -> string