var
  s: string;
  sq, j, i, q, sw: integer;

begin
  read(s);
  for q := 1 to (length(s) div 8) do 
  begin
    for i := 1 to 8 do 
    begin
      sq := ord(s[i]) - 48;
      for j := 1 to 8 - i do
        sq := sq * 2;
      if sq <> 0 then sw := sw + sq;
    end;
    writeln(chr(sw));
    Delete(S, 1, 8);
    sw:=0;
    sq:=0;
  end;
end.