1proc1 input.tcl /^proc proc1 {} {$/;" p 2proc2 input.tcl /^proc proc2 {} {}$/;" p 3proc3 input.tcl /^proc proc3 {} {$/;" p 4proc4 input.tcl /^proc proc4 {} {}$/;" p 5