choice
enabled
choose
fold' reader ~init ~f
reader
f
iter' reader ~f
next t
Consumer
Pipe.flushed
sexp_of_t t f