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 =
type 'a result = ('a, [ `Msg of string ]) r