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