(deftest bryan-itteration ()
  (check
    (samep "(10 9 8 7 6 5 4 3 2 1)" (let ((lst (list)))
				      (do ((i 1 (+ i 1)))
					  ((> i 10) lst)
					(push i lst))))
    (samep "(9 8 7 6 5 4 3 2 1 0)" (let ((lst (list)))
				     (dotimes (x 10 lst)
				       (push x lst))))
    (samep "(10 9 8 7 6 5 4 3 2 1)" (let ((lst (list)))
				      (dolist (z (list 1 2 3 4 5 6 7 8 9 10) lst)
					(push z lst))))))