val sequence :
[ `One of 'aCore_kernel.Or_error.t| `Two of 'aCore_kernel.Or_error.t * 'aCore_kernel.Or_error.t ]->[ `One of 'a| `Two of 'a * 'a ]Core_kernel.Or_error.t
val map :
[ `One of 'a| `Two of 'a * 'a ]->f:( 'a->'bCore_kernel.Or_error.t )->[ `One of 'b| `Two of 'b * 'b ]Core_kernel.Or_error.t
val fold :
[ `One of 'a| `Two of 'a * 'a ]->init:'accum->f:( 'accum->'a->'accumCore_kernel.Or_error.t )->'accumCore_kernel.Or_error.t