create-room-2.tcl