Tcl One Liner