here's the asm dump of the program
mathematica for emacs