symbol :: TokenParser String
symbol = token go P.<?> "symbol"
  where go (Symbol s) = Just s
        go _          = Nothing
symbol :: TokenParser String
symbol = token go P.<?> "symbol"
  where go (Symbol s) = Just s
        go _          = Nothing
symbol = token go P.<?> "symbol"
  where go (Symbol s) = Just s
        go _          = Nothing