sig   val env : string -> default:'-> (string -> 'a) -> 'a   val fullscreen_available : bool   val request_fullscreen : Brr.El.t -> unit   val exit_fullscreen : unit -> unit   val is_fullscreen : bool Note.signal   val quit : unit Note.event   val run : ?name:string -> (unit -> unit) -> unit end