%begin
   %begin
      %begin
         %begin
            %begin
               %integer x,y
               %integerarray a(1:X+y)
               x=a(a(x*(Y+1)))
            %end
         %end
      %end
   %end
%endofprogram