via

[example {
pt generate snit calculator.tcl -class calculator -name calculator peg calculator.peg
}]