contest-defs.tcl