import Data.Char (chr)

import Data.Function ((&))

import Data.Word (Word8)

import Streamly.Data.Stream (Stream)

import System.Environment (getArgs)

import System.IO (IOMode(..))

import qualified Streamly.Data.Array as Array

import qualified Streamly.Data.Fold as Fold

import qualified Streamly.Data.Stream as Stream

import qualified Streamly.FileSystem.Handle as Handle

import qualified System.IO as IO

import qualified Streamly.Internal.Data.Array as Array (compactSepByByte_)

main :: IO ()

main = do

inFile <- fmap head getArgs

src <- IO.openFile inFile ReadMode

Handle.readChunks src -- Stream IO (Array Word8)

& Array.compactSepByByte_ 10 -- Stream IO (Array Word8)

& Stream.fold (Fold.drainMapM parseLine) -- IO ()

where

printList = putStr . map (chr . fromIntegral)

parseLine arr =

(Array.read arr :: Stream IO Word8)

& Stream.splitSepBy_ (== 44) Fold.toList -- Stream IO [Word8]

& Stream.intersperse [32] -- Stream IO [Word8]

& Stream.fold (Fold.drainMapM printList) -- IO ()

>> putStrLn ""