Create proc_topleech.tcl