add fromChans :: [Tchan a] -> Pipe () a m ()