move proc into qcode-tcl