%begin
   %integer i, j, k, l, p, q
   select output(0)
   i = 1000
   j = 1001
   k = 2
   l = 3
   %begin
      %own %byte %integer %array fred(1000:1001, 2:3) = 1, 2, 3, 4

      %for p = i, 1, j %cycle
         %for q = k, 1, l %cycle
            printstring("fred(")
            write(p, 0)
            printsymbol(',')
            write(q, 0)
            printstring(") is ")
            write(fred(p, q), 0)
            newline
         %repeat
      %repeat
   %end
%end %of %program