head :: Monad m => Int -> Pipe a a m ()
Merge pull request #66 from michaelt/patch-1

head :: Monad m => Int -> Pipe a a m ()