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