%BEGIN
%RECORDFORMAT F(%INTEGER I,J,K,%INTEGERARRAY A(1:5))
%RECORD R(F)
%INTEGERARRAYNAME B
%INTEGER I
      %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