module Quit: sig .. end
sig
end
val quit : unit -> unit
unit -> unit
val quit_requested : unit -> bool
unit -> bool