Proc' :: Char -> [Int] -> BS.ByteString -> IO ()
mainProc' s fs str = BS.putStr $ BS.unlines [ mainProc'' s fs ln | ln <- BS.lines str]

ma
mainProc' :: Char -> [Int] -> BS.ByteString -> IO ()
mainProc' s fs str = BS.putStr $ BS.unlines [ mainProc'' s fs ln | ln <- BS.lines str]
mainProc' s fs str = BS.putStr $ BS.unlines [ mainProc'' s fs ln | ln <- BS.lines str]