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