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