mged

for {set x 0} {$x < 6} {incr x} {
for {set y 0} {$y < 6} {incr y} {
eval {in keypad.btn.$x.$y arb8 0 0 0 1 0 0 1 1 0 0 1 0 0 0 1 1 0 1 0 1 1 1 1 1}
}
}