(let Val 0
   (loop
      (println (inc 'Val))
      (T (=0 (% Val 6))) ) )