Eine Tabelle dynamisch erzeugt:

<+

set listone { 1 2 3 4 5 6 7 8 }
set listtwo { 1 2 3 4 5 6 7 8 }

hputs "<table>\n"

foreach { a } $listone  { 
    hputs "<tr>\n"
    foreach { b } $listtwo {
	set num [ expr $a * $b * 4 - 1 ]
	hputs [ format "<td bgcolor=%2x%2x%2x >  $num $num $num </td>\n" $num $num $num ]
    }
    hputs "</tr>\n"
}
hputs "</table>\n"

+>
3 3 3 7 7 7 11 11 11 15 15 15 19 19 19 23 23 23 27 27 27 31 31 31
7 7 7 15 15 15 23 23 23 31 31 31 39 39 39 47 47 47 55 55 55 63 63 63
11 11 11 23 23 23 35 35 35 47 47 47 59 59 59 71 71 71 83 83 83 95 95 95
15 15 15 31 31 31 47 47 47 63 63 63 79 79 79 95 95 95 111 111 111 127 127 127
19 19 19 39 39 39 59 59 59 79 79 79 99 99 99 119 119 119 139 139 139 159 159 159
23 23 23 47 47 47 71 71 71 95 95 95 119 119 119 143 143 143 167 167 167 191 191 191
27 27 27 55 55 55 83 83 83 111 111 111 139 139 139 167 167 167 195 195 195 223 223 223
31 31 31 63 63 63 95 95 95 127 127 127 159 159 159 191 191 191 223 223 223 255 255 255