(let Val 0
   (until (=0 (% (println (inc 'Val)) 6))) )