

source ../shell.tcl
Tcl .top

wm withdraw .
