program vlad;

var
  n, i, z, c: longint;
  a: array [1..30000] of longint;

begin
  i := 0;
  repeat
    inc(i);
    readln(a[i]);
  until (a[i] = 0);
  c := i - 1;

  for i := 1 to c do
  begin
    z := 0;
    if (a[i] <> 0) then
    begin
      z := 1;
      while (a[i] <> 0) do
      begin
        if (a[i] and 1 = 1) then break;
        a[i] := a[i] shr 1;
        z := z shl 1;
      end;
    end;
    writeln(z);
  end;
end.