print "order2.pl\n"; print 'printf "%4d : %3d\n",$ofs-0,(($ofs+=4)-4)*4',$/; for ($ofs=0;$ofs<10;) { printf "%4d : %3d\n",$ofs-0,(($ofs+=4)-4)*4 }