set row 1
set col 1
set winNum 1

foreach r {1 2 3 4} {
  foreach c {a b c d} {
    label .l_$winNum -text "$r $c" -relief raised
    grid .l_$winNum -row $row -column $col
    set winNum [expr $winNum + 1]
    set col [expr $col + 1]
  }
  set col 1
  set row [expr $row + 1]
}