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>")