(let ((i 0))
  (do-until (= 0 (% i 6))
	    (println (++ i))))