read-toggle.tcl