sburke@jarthur.Claremont.EDU (Scott Burke) (03/10/91)
Hey, while we're at it, here's an even _shorter_ version, which saves 10 more
bytes:
<<
SWAP OBJ-> EVAL @ EVAL replaces OBJ-> DROP
1 + ROLL OBJ->
2 SWAP + ->ARRY @ why blow up the list if you're going to re-make it?
>>
Checksum # 52064d; 37.5 bytes for the program object
Scott.
sburke@jarthur.claremont.edu