set n 0
set a 0
while {$a<10?"[incr n]$n"%22-11||[incr a]:0} {puts N=$n,A=$a}