multifact: function [n deg][
	switch n =< deg -> n
				    -> n * multifact n-deg deg
]

loop 1..5 'i [
	prints ["Degree" i ":"]
	loop 1..10 'j [
		prints [multifact j i " "]
	]
	print ""
]