(let (num)
	(setf num 1)
	(loop
		(format t "~D " num)
		(if (equal num 20) (return))
		(setf num (+ num 1))))