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