program chen;
var
a:array[1..8] of longint;
s:char;
b,i:longint;
procedure er(m:longint);
var
i,j,x:longint;
begin
x:=m;
for i:=1 to 8 do begin
a[i]:=x mod 2;
x:=x div 2;
end;
end;
begin
assign(input,'strpassword.in'); reset(input);
assign(output,'strpassword.out'); rewrite(output);
while not eoln do begin
fillchar(a,sizeof(a),0);
read(s);
b:=ord(s);
er(b);
for i:=8 downto 1 do
write(a[i]);
end;
close(input); close(output);
end.