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

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