Conveyor<F, Unit> to(Conveyor<F, SinkF<F, O>> sink) => zipWith(sink, (o, SinkF<F, O> f) => f(o)).flatMap((a) => cast<Conveyor<F, Unit>>(a));