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