sig
type 'a t = 'a option
val map :
('a -> 'b) ->
'a Ocsigen_lib_base.Option.t -> 'b Ocsigen_lib_base.Option.t
val get : (unit -> 'a) -> 'a Ocsigen_lib_base.Option.t -> 'a
val iter : ('a -> unit) -> 'a Ocsigen_lib_base.Option.t -> unit
val return : 'a -> 'a Ocsigen_lib_base.Option.t
val bind :
'a Ocsigen_lib_base.Option.t ->
('a -> 'b Ocsigen_lib_base.Option.t) -> 'b Ocsigen_lib_base.Option.t
end