working on scratch/concurrency.tcl