;??-Jun-1999                                                    Alain Brobecker
;Computes the factorials of 0 to 48
;This is the program included in SockZ for the standalone running

 1 0                    ;0! 0
.loop
 COPY HPRINT "! = "
 1 + COPY               ;n! n+1 n+1
 3 SWAP                 ;n+1 n+1 n!
 COPY HPRINT CR
 *                      ;n+1 (n+1)!
 SWAP2                  ;(n+1)! n+1
 COPY 48 SKIP= loop    ;Continue if n+1<>48
 HPRINT "! = " HPRINT CR
END