>>> S.print $ mapped S.length $ chunksOf 3 $ S.each [1..10] 3 3 3 1
>>> runIdentity $ S.length_ (S.each [1..10] :: Stream (Of Int) Identity ()) 10