create-folder-2.tcl