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}