getLinee :: IO String
getLinee = do x <- getChar
              if x == '\n' then return []
              else
                do xs <- getLinee
                   return (x:xs)