../../src/compare.tcl