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