Program m1;
var
 x,d,R,S: longint;
begin
  readln(x);
  S := x;
  R := 0;
  while x>0 do
  begin
    d := x mod 2;
    R := 10*R + d;
    x := x div 2
  end;
  S := R + S;
  writeln(S)
end.