val (>>=) :
('a, 'b) Stdlib.result ->
('a -> ('c, 'b) Stdlib.result) ->
('c, 'b) Stdlib.result
val (>>|) : ('a, 'b) Stdlib.result -> ('a -> 'c) -> ('c, 'b) Stdlib.result
type ('a, 'b) r = ('a, 'b) Stdlib.result =
| Ok of 'a
| Error of 'b
type 'a result = ('a, [ `Msg of string ]) r