sig val output_map : Web__HTML.version -> (string -> int -> int -> unit) -> ?endline:bool -> [ `hidden ] -> string Web.StringMap.t -> unit end