(defun generate (n)
	(list
		'make
			(random (+ n 1))
		'from
		(list
			(random (+ n 1))
			(random (+ n 1))
			(random (+ n 1))
			(random (+ n 1))
			(random (+ n 1))
		)
	)
)

(defun display-problems (number limit)
	(dotimes (i number)
		(princ "p")
		(prin1 (+ i 1))
		(princ " = ")
		(prin1 (generate limit))
		(terpri)
	)
)