%begin
   %integer i, j, p

   select output(0)

   i = 1000
   j = 1006

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

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