Add pullshaper.tcl script
Fixing merge