sig val may : f:('a -> unit) -> 'a option -> unit val map : f:('a -> 'b) -> 'a option -> 'b option val map_default : f:('a -> 'b) -> 'b -> 'a option -> 'b end