\n" for {set i 1} { $i <= 8 } {incr i} { puts "\n" for {set j 1} {$j <= 8} {incr j} { set num [ expr $i * $j * 4 - 1] puts [ format " $num $num $num \n" \ $num $num $num ] } puts "\n" } puts "\n" ?>