basics.tcl 234 Bytes