%BEGIN
%STRING(5) %ARRAY a(1:10)
%STRING(5) %NAME ap
%INTEGER i
%ROUTINE conc(%STRING(5) %NAME x)
      x=x."a"
%END
      a(i)=tostring(i+'0') %FOR i=1,1,1
      printstring("before conc "); printstring(a(1)); newline
      conc(a(i)) %FOR i=1,1,1
      printstring("afeter conc "); printstring(a(1)); newline
      %FOR i=1,1,1 %CYCLE
         ap==a(i)
         ap=ap."b"
       printstring("after 2nd conc "); printstring(a(1)); newline
         printstring(a(i)) %UNLESS a(i)=tostring(i+'0')."ab"
      %REPEAT
%ENDOFPROGRAM
