*m+,l+
.comment * A macro to generate the factorial of
           a number up to 6! *

fact	macro	@result,@n
	if	@n=1
@result	defl	1
	else
	fact	t@$YM,@n-1
@result	defl	t@$YM*(@n)
	endc
	endm

	fact	test,6
	ld	hl,test

t,@n
	if	@n=1
@res