This simple program calculates x!.
It does not check the input, and zero gives zero instead of 1.

The program :

01    23 0            STO 0
02    1                 1
03    23 1            STO 1
04    24 0            RCL 0
05    23 61 1       STO x 1
06    1                 1
07    23 41 0       STO - 0
08    24 0            RCL 0
09    15 51          x>0
10    13 04          GTO 04
11    24 1            RCL 1
12    13 00          GTO 0