Create scanner.tcl