; Factorial
; written by Brian Raiter, 6/96

:set ArgRow = 15
:set MaxArgs = 16
:set aY = ArgRow
:set iX = 3
:set iY = 0

[0,0]
0   0   L   00  @   aY  ~   =   @   ?   J   J
	-				nop $
	'0'				~   $
	+				1   @   rev
	K   *   10  ~   #   iX  iY  +   H   ?   @
			    		    L   ccw ?   J   $   $   L   ~   J
			    ret c   d   1   cw  -   1   H	    *       @
						ret 0   c   d   ~   K   ?   H