open Wonka_types;

let takeWhile: ((. 'a) => bool, sourceT('a), sinkT('a)) => unit;