exit-room.tcl