1[example {
2package require Tcl 8.5
3package require fileutil
4package require pt::pgen
5
6lassign $argv name
7set grammar [fileutil::cat $name.peg]
8set plass [pt::pgen
9              peg $gr \
10              snit \
11                  -class $name     \
12                  -file  $name.peg \
13                  -name  $name]
14fileutil::writeFile $name.tcl $pclass
15exit 0
16}]
17