var
  a, s, s1: string;
  aa: array [1..15] of char;
  i, a1, a2, j, sq, sw, oshibka, a4, a8, e, q: integer;

begin
  readln(a);
  for i := 1 to length(a) do 
  begin
    a1 := ord(a[i]);
    s := '';
    while a1 >=1 do 
    begin
      s := inttostr(a1 mod 2)+s;
      a1 := a1 div 2;
    end;
    //s := inttostr(a1)+s;
    write(s);
  end;
end.