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