%begin
%integer c,col,tab,i
%constintegerarray tablist(0:9) = 6,9,12,15,18,21,24,27,30,33
%on 3,9 %start; closeoutput; %stop; %finish
openinput(1, "compress.imp"); selectinput(1)
openoutput(2, "junk"); selectoutput(2)
col=0
tab=0
%cycle
  readsymbol(c)
  %if c=9 %start
     i=tablist(tab)-col
     %if i>0 %then spaces(i) %and col=col+i %and tab=tab+1 %else %c
     space %and col=col+1
  %finishelse printsymbol(c) %and col=col+1
  col=0 %and tab=0 %if c=10
%repeat
%endofprogram