getString :: IO String
getString = do
    c <- getChar
    if isSpace c then return "" else (c:) <$> getString
getString :: IO String
getString = do
    c <- getChar
    if isSpace c then return "" else (c:) <$> getString
getString = do
    c <- getChar
    if isSpace c then return "" else (c:) <$> getString