%begin
   %integer i, j, k, l, m, n
   i = 1000
   j = 1001
   k = 2
   l = 10
   m = -10
   n = -8
   %begin
      %own %byte %integer %array fred(i : j, k : l, m : n)
      k = fred(1000, 6, -9)
   %end
%end %of %program
