open Wonka_types;

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