WANTED: A simple example of the grammar::peg stuff

[Nick Hounsome]

I want to parse some stuff.

grammar::peg in tcllib appears to be the tool for the job but it is
too complicated.
Has anyone got a simple example - something like setting up a simple
expression peg (I think that I've done that) and then running it over
a string and looking at the AST

Also I may be being a bit dense but shouldn't there be some sort of
lexer in the tcllib to provide the input.