1a input.tcl /^proc a {} {$/;" p 2b input.tcl /^proc b {} {}; proc c {} {$/;" p 3c input.tcl /^proc b {} {}; proc c {} {$/;" p 4d input.tcl /^}; proc d {} {$/;" p 5e input.tcl /^}; proc e {} {};;;$/;" p 6f input.tcl /^proc f {} {};;;;;;;; a \\$/;" p 7g input.tcl /^ ; proc g {} {} ; \\$/;" p 8h input.tcl /^ proc h {} {}$/;" p 9