Guess what this does:

GZ0J\\UNQN"E 40UN ' BUH BUV HK
QN< J BUQ QN*10/3UI
QI< \\+2*10+(QQ*QI)UA B L K QI*2-1UJ QA/QJUQ
QA-(QQ*QJ)-2\\ 10@I// -1%I >
QQ/10UT QH+QT+48UW QW-58"E 48UW %V ' QV"N QV^T ' QWUV QQ-(QT*10)UH >
QV^T @^A/
/HKEX$$

(Answer below.)































































































It's a TECO macro that calculates pi. From [link|http://home.planet.nl/~faase009/HaPi_TECO_macro.html|here], via a Groklaw discussion (on vi versus Emacs and what Emacs was based on). Some people have far too much time on their hands. ;-)

Cheers,
Scott.