∇ r←loop m;t;n;z
 step+←1
 r←1+m
 t←(⍴m)⍴0
 n←9<m
 z←n
loop:
 t+←{+/,⍵}⌺3 3⊢z
 →(n≡9<t+r)/end
 z←n≠9<t+r
 n←9<t+r
 :If ∧/,n
     ⎕←step
 :EndIf
 →loop
end:
 flush+←+/,n
 r←10|10⌊t+r
∇
      step←0
      flush←0
      loop⍣500⊢data