using ParserCombinator

symbolic_constant = p"[a-z]([a-zA-Z0-9_]*)"
grammar = symbolic_constant + Eos()

source = "A"
expr = parse_one(source, grammar)[1]
println("Source $source => $expr")