Create scaner.tcl