>>130
(for (init (i 0) (j = 0)) (cond (< j 10)) (update (++ i) (++ j)) (block (call a))

これじゃダメなの？