sig   val env : string -> default:'-> (string -> 'a) -> 'a   val quit : unit Note.event   val run : ?name:string -> (unit -> unit) -> unit end