val (>?>) : 'a option -> ('a0 -> 'b option) -> 'b0 option