sig
  val ( >>= ) :
    ('a, 'e) BatResult.t ->
    ('-> ('c, 'e) BatResult.t) -> ('c, 'e) BatResult.t
end