write-toggle.tcl