perl -e '$i=0; $ii=0.05; for(0..30){ $i+=0.05; $ii+=0.1 if($_%2); } print "$i-$ii=".($i-$ii)."\n"'