Slight optimization of substitute routine.  About 1.07 times faster.

Eliminated some of the @ (fixpoint) notation in test/a1.fxl.