#!perl -ln $b=$_%6>1;print"$_ = 6 * ",int($_/6)+$b,$b?' - 1':' + 1'
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page