parseString :: Parser LispVal
parseString = String <$> between quote quote escChars
  where
    quote = char '"'
    escChars = many (escapedOrNot "nrt\\\"")
parseString :: Parser LispVal
parseString = String <$> between quote quote escChars
  where
    quote = char '"'
    escChars = many (escapedOrNot "nrt\\\"")
parseString = String <$> between quote quote escChars
  where
    quote = char '"'
    escChars = many (escapedOrNot "nrt\\\"")