parseSymbol :: Parser SExpr
parseSymbol = skipWhite
  $ fmap SSymbol $ many1 $ satisfy $ \ c -> not (isSpace c || elem c "()")
parseSymbol :: Parser SExpr
parseSymbol = skipWhite
  $ fmap SSymbol $ many1 $ satisfy $ \ c -> not (isSpace c || elem c "()")
parseSymbol = skipWhite
  $ fmap SSymbol $ many1 $ satisfy $ \ c -> not (isSpace c || elem c "()")