BEGIN
owninteger fail=0
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,10
      conc(a(i)) FOR i=1,1,10
      FOR i=1,1,10 CYCLE
         ap==a(i)
         ap=ap."b"
         printstring(a(i)) and fail=1 UNLESS a(i)=tostring(i+'0')."ab"
      REPEAT
      printstring("TEST OK") if fail=0
ENDOFPROGRAM