Reader.Fork
A synchronous write on a pipe that is later forked resolves its deferred * when all readers take the message (assuming the readers obey the CSP-style * iter
val n : 'a t -> int -> 'a t list
val two : 'a t -> 'a t * 'a t
val three : 'a t -> 'a t * 'a t * 'a t