With some bending of the rules(?), we get a little more detail, and 117 chars
perl -Mconstant=Z,20 -l
map{$i=$_/Z,print map{$r=$;=$_/Z;$z=$i;$n=$z*$z,$m=$r*$r,$z=2*$r*$z+$i
+,$r=$m-$n+$;for a..z;$m<4?$":"+"}-46..Z}-19..Z
116 @ Wed May 8 19:50:10 EDT 2002
map{$i=$_/Z,print map{$r=$;=$_/Z;$z=$i;$n=$z*$z,$z=2*$r*$z+$i,$r=($m=$
+r*$r)-$n+$;for a..z;$m<4?$":"+"}-46..Z}-19..Z
BTW, I like the use of $; :-)
UPDATE: Changed outside range from -20..Z to -19..Z to eliminate extra lines of +.
--
perl -pew "s/\b;([mnst])/'$1/g"
|