procedure main(arg) every i := 0 to 9 & j := 0 to 9 do write( i + 10*j ) end