%externalintegerfn main
%string (255) a, s
%integer i, j, k, l;
%integername p, q
  i = 20; j = 25; k = 21; l = 27;
  p == j; q == l;
  %cycle
    i = j; p = q
  %repeat %until k=3 %or i=p and l=1
  %begin
!    %integerarray ia1(0 /* crashes if i */ :j)
    %integerarray ia1(0:l)

    select input(0)
    select output(0)
    s = "1+1+1+1+1+1+1+1+1"
    %while s -> a.("+").s %cycle
       readch(i)
       %exit %if i < 0
       print symbol(i)
    %repeat

    %cycle
       %exit %if i < 0
       print symbol(i)
    %repeat %until %not s -> a.("+").s

    %for i = 0,1,10 %cycle
       %exit %if i < 0
       print symbol(i)
    %repeat

    i = ia1(24)
  %end
  %stop
%end

%endoffile