%BEGIN
%INTEGER SYM
%STRING(255)S
S="ABCDE"
      %WHILE S#"" %CYCLE
         SYM=CHARNO(S,1)
         S->(TOSTRING(SYM)).S
         PRINTSYMBOL(SYM)
      %REPEAT
      NEWLINE
%ENDOFPROGRAM