using the script [file gen]

[include expr_ptgenb.inc]

calling it like

[example { tclsh8.5 gen calculator }]