module Option: sig .. end
sig
end
val may : ('a -> unit) -> 'a option -> unit
('a -> unit) -> 'a option -> unit
val map_default : ('a -> 'b) -> 'b -> 'a option -> 'b
('a -> 'b) -> 'b -> 'a option -> 'b