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