
tabulateS :: Int -> Stream (Of Int) IO r -> Stream (Of Text) IO r
tabulateS cols str = mapsM S.mconcat $ S.chunksOf cols $ S.map withTab str

sumAndTabS :: Int -> Stream (Of Int) IO r -> IO Int
sumAndTabS cols =