module Result:sig
..end
include Core.Std.Result
val while_ok : 'a list -> f:(int -> 'a -> ('b, 'e) t) -> ('b list, 'e) t
f
on the list until the first error is
met.val output_result : 'a -> [> `output of 'a ]
val output_ok : 'a -> [> `output of ('a, 'b) t ]
val output_error : 'a -> [> `output of ('b, 'a) t ]