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