<<<--- % Author M. Ruckert LOC #100 Main SET $1,3 SET $2,23 PUSHJ $0,Exp TRAP 0,Halt,0 --->>> x IS $0 &Parameter n IS $1 y IS $2 &Local variable Exp SET y,x \hfil 1& SUB n,n,1 \hfil 1& JMP 1F \hfil 1& 0H MUL y,y,x \hfil $10(n-1)$& SUB n,n,1 \hfil $(n-1)$& 1H PBP n,0B \hfil $n+2$& SET $0,y \hfil 1& POP 1,0 \hfil 3&