procedure main()
   every product := 1 to 100 & i := 1 to 10 & j := 1 to 10 &
        write(i, " x ", j, " = ", product)
end