DEFINE	$SAVE(N),<
.SAVE'N:
	XLIST
	EXCH P1,(P)
	HRLI P1,(P)
..T==P1+1
REPEAT N-1,<
	PUSH P,..T
..T=..T+1
>
	CALL [JRA P1,(P1)]
.SAVX'N:
	SOS -N(P)
RET'N:
..T==P1+N-1
REPEAT N,<
	POP	P,..T
..T=..T-1
>
	AOS (P)
	RET
	LIST
> ;DEFINE $SAVE
 
	$SAVE	1