(let (num)
	(setf num 0)
	(loop
		(format t "~D " num)
		(setf num (+ num 1))))