Ct
Size: a a a
Ct
P
DF
А⚙
S.repeatM (T.hGetLine iHandle)
>>= splitColumns
& S.intersperse "\n"
& S.fold (SF.drainBy $ T.hPutStr oHandle)
& serially
& S.drain
& handleEof
where
splitColumns = S.fromList . T.split (== ',')
AK
Ct
P
DF
DF
Ct
А⚙
A
AK
А⚙
А⚙
AK
P
Ct
AK
AK