+parseString :: Parser LispVal
+parseString = do
+ char '"'
+ x <- many (noneOf "\"")
+ char '"'
+ return $ String x
+
+parseAtom :: Parser LispVal
+parseAtom = do
+ a <- letter <|> symbol
+ b <- many (letter <|> digit <|> symbol)
+ let atom = a:b
+ return $ case atom of
+ "#t" -> Bool True
+ "#f" -> Bool False
+ _ -> Atom atom
+