Module Option.Infix
val return : 'a -> 'a optionval (>>=) : 'a option -> ('a -> 'b option) -> 'b optionval (>>|) : 'a option -> ('a -> 'b) -> 'b optionval (let*) : 'a option -> ('a -> 'b option) -> 'b optionval (let+) : 'a option -> ('a -> 'b) -> 'b option