function w $factorial (w %n, w %acc) {
@start
	jnz %n, @z, @nz
@z
	ret %acc
@nz
	tail
}