printf"%-4s0.0",$_ for' Z | ',0..8;print'9
----+','-'x70;for($f=2.506628;$i++<61;$f*=-++$i){printf'
%.1f |',$x,s;;+\$x**$i/$i/$f;;printf'%7.4f',eval,$x+=.01for(.5.$_)x10}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).