one-bug.tcl