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