eval :: Env -> LispVal -> IOThrowsError LispVal
eval env val@(String _) = return val
eval :: Env -> LispVal -> IOThrowsError LispVal
eval env val@(String _) = return val
eval env val@(String _) = return val