(SKSH_PP,08)(31(29,local)(04,_fspec)(04,_oldbase)(04,_newsuffix))(39(74(69(04,$#)(04,2))(75(02,$1)(01,-?)))(32(31(29,echo)(01,Usage:)(19(31(29,basename)(04,$0)))(01,newext files...))(31(29,echo)(01, (renames files with new extention)))(31(29,return)(04,1))))(31(04,_newsuffix)(21,=)(02,$1))(39(61(19(31(29,car)(02,$_newsuffix)(01,.))))(32(31(04,_newsuffix)(21,=)(19(31(29,cdr)(02,$_newsuffix)(01,.))))))(31(29,shift))(34(04,_fspec)(33(04,$*))(32(39(77(55(02,$_fspec)))(32(31(29,echo)(04,-c)(19(31(29,basename)(04,$0)))(02,: $_fspec not found, skipping.)))(32(31(04,_oldbase)(21,=)(19(31(29,extname)(04,-v)(02,$_fspec))))(31(29,mv)(02,$_fspec)(02,$_oldbase.$_newsuffix))))))
