%begin
%constinteger tab=9,ff=12
%integer x,pos=0
%string(63)i,o
  %on 9 %start; %stop; %finish
  i = cliparam
  o = i %unless i -> i.("/").o
  openinput(1,i); openoutput(1,o)
  selectinput(1); selectoutput(1)
  %cycle
    x = readsymbol
    x = nl %if x=ff
    %if x=tab %start
      space %and pos = pos+1 %while pos&7#7; x = ' '
    %finish
    printsymbol(x); pos = pos+1; pos = 0 %if x<' '
  %repeat
%end