1[example { 2 package require calculator 3 4 lassign $argv input 5 set channel [open $input r] 6 7 set parser [calculator] 8 set ast [$parser parse $channel] 9 $parser destroy 10 close $channel 11 12 ... now process the returned abstract syntax tree ... 13}] 14