%begin
%integer i,j,k, ward, nfile, nward
%ownintegerarray c(0:64) = %c
100, 101, 102, 103, 41, 105, 35, 38, 47, 109, 48, 111, 112, 51,
52, 59, 60, 57, 58, 119, 53, 56, 54, 33, 36, 34, 31, 7, 8,
129, 21, 13, 14, 23, 134, 5, 6, 15, 138, 24, 140, 17, 27, 17,
18, 9, 10, 10, 11, 20, 150, 29, 19, 28, 30, 30, 45, 44, 46, 61, 160, 1,
2, 4, 3
%routine get next
      select input(3)
      read(nfile)
      %if nfile<0 %start
         select output(0)
         printstring("ok
")
         select output(2)
         nfile = -1; nward = 0; select input(1); %return
      %finish
      read(nward)
      select input(1)
%end

select input(1)
select output(2)
get next
%cycle
      read(i)
      write(i, 1)
      %if i<0 %then newline %and %continue
      read(ward)
      %if i = nfile %start
         write(nward, 1)
         nward = -1
      %finishelsestart
         write(ward, 1)
      %finish
      read(j); write(j, 1)
      read(j); write(j, 1)
      read(j); write(j, 1)
      skipsymbol %if nextsymbol = ' '
      readsymbol(j); space; printsymbol(j)
      newline
      get next %if nward<0
%repeat
%endofprogram