Added demo.tcl