(defun fu (x y z)
	(setq l nil)
	(loop 
		(if (> x y) (return l))
		(if (= (rem x z) 0) (setq l (append l (list x))))
		(setq x (+ x 1))
	)
)
(format t "~{~A ~}:" (fu 1 10 1))
(format t "~{~A ~}:" (fu 10 1 2))
(format t "~{~A ~}:" (fu 1 10 3))
(format t "~{~A ~}" (fu 10 1 4))