updateCol :: Int -> Char -> Int
updateCol n c = if c == '\n' then 1 else n + 1
updateCol :: Int -> Char -> Int
updateCol n c = if c == '\n' then 1 else n + 1
updateCol n c = if c == '\n' then 1 else n + 1