assign-yourself.tcl