-->
puts(1,"<table border=2>\n")
puts(1," <tr><th></th>")
for j=1 to 3 do
printf(1,"<th>%s</th>",'W'+j)
end for
puts(1,"</tr>\n")
for i=1 to 3 do
printf(1," <tr><td>%d</td>",i)
for j=1 to 3 do
printf(1,"<td>%d</td>",rand(10000))
end for
puts(1,"</tr>\n")
end for
puts(1,"</table>")