(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))