sig type 'a f = 'a option val map : ('-> 'b) -> 'a f -> 'b f end