Module JoinFifo.S

module S: sig .. end

exception Closed
type 'a t = {
   put :'a -> unit;
   get :unit -> 'a;
   close :unit -> unit;
   kill :unit -> unit;
}