sig   val reword_error :     ('-> 'c) -> ('a, 'b) Pervasives.result -> ('a, 'c) Pervasives.result   val join :     (('a, 'b) Pervasives.result, 'b) Pervasives.result ->     ('a, 'b) Pervasives.result   type msg = [ `Msg of string ]   val msgf :     ('a, Format.formatter, unit, [> B0.R.msg ]) Pervasives.format4 -> 'a   val error_msg : string -> ('b, [> B0.R.msg ]) Pervasives.result   val error_msgf :     ('a, Format.formatter, unit, ('b, [> B0.R.msg ]) Pervasives.result)     Pervasives.format4 -> 'a   val reword_error_msg :     ?replace:bool ->     (string -> B0.R.msg) ->     ('a, B0.R.msg) Pervasives.result -> ('a, [> B0.R.msg ]) Pervasives.result   val open_error_msg :     ('a, B0.R.msg) Pervasives.result -> ('a, [> B0.R.msg ]) Pervasives.result   val failwith_error_msg : ('a, B0.R.msg) Pervasives.result -> 'a end