module C: sig .. end
sig
end
type 'a t = {
'a
put :('a * bool Join.chan) Join.chan;
('a * bool Join.chan) Join.chan
(*
*)
close :unit -> unit;
unit -> unit