survey-simple-defs.tcl