to factorial :n
	make "fact 1
	make "i 1
	repeat :n [make "fact :fact * :i make "i :i + 1]
	print :fact
end