noisy-each

[macro] noisy-each val body ...

(mac noisy-each (n var val . body)
  (w/uniq (gn gc)
    `(with (,gn ,n ,gc 0)
       (each ,var ,val
         (when (multiple (++ ,gc) ,gn)
           (pr ".") 
           ;(flushout)
           )
         ,@body)
       (prn)
       ;(flushout)
       )))