%BEGIN
%RECORDFORMAT F(%INTEGER I,J,K,%INTEGERARRAY A(1:5))
%RECORD(F) R
%INTEGERARRAYNAME B
%INTEGER I
      R_I='I'
      R_J='J'
      %CYCLE I=1,1,5
      R_A(I)=I
      %REPEAT
      R_K=255
      B==R_A
      %CYCLE I=1,1,5
         WRITE(B(I),5)
      %REPEAT
%ENDOFPROGRAM