module Loop: sig .. end
sig
end
Main loop.
type t
val create : unit -> t
unit -> t
val run : t -> unit
t -> unit
val quit : t -> unit