sig val ( >>= ) : ('a, 'b) Rresult.result -> ('a -> ('c, 'b) Rresult.result) -> ('c, 'b) Rresult.result val ( >>| ) : ('a, 'b) Rresult.result -> ('a -> 'c) -> ('c, 'b) Rresult.result end