Sequence.Expert
val next_step : 'a t -> ('a, 'a t) Step.t
val delayed_fold_step : 'a t -> init:'s -> f:('s -> 'a option -> k:('s -> 'r) -> 'r) -> finish:('s -> 'r) -> 'r