val create : int e -> 'a t -> 'a chan tval full : ('a chan * string) -> bool * stringval nfull : ('a chan * string) -> bool * stringval empty : ('a chan * string) -> bool * stringval nempty : ('a chan * string) -> bool * stringval len : ('a chan * string) -> int * stringval first : 'a chan -> ('a * 'b) -> boolval any : 'a chan -> ('a * 'b) -> boolval poll :
[< `Any | `First ] ->
('a chan * string) ->
('a * string) ->
bool * stringval recv :
[< `Any | `First ] ->
('a chan * string) ->
('a * string) ->
unit * stringval send : ('a chan * string) -> ('b * string) -> bool * string