{Usage: decoder.exe infile [outfile]
use 0000110100001010 as a separator}

var fi,fo:text;
    s:string;
    b:byte;
    i,j:integer;
begin
  assign(fi,paramstr(1));
  reset(fi);
  assign(fo,paramstr(2));
  rewrite(fo);
  i:=0;
  b:=0;
  repeat
    readln(fi,s);
    for j:=1 to length(s) do begin
      b:=b shl 1;
      if s[j]='1' then inc(b);
      inc(i);
      if i>=8 then begin
        write(fo,chr(b));
        i:=0;
        b:=0;
      end;
    end;
  until eof(fi);
  close(fi);
  close(fo);

end.