var x,y,i:longint;
    a:array[1..100]of integer;
begin
  while not eof do begin
    readln(x);
    i:=0;
    repeat
    i:=i+1;
    a[i]:=x mod 2;
    x:=x div 2;
    until x=0;
    for y:=i downto 1 do
    write(a[y]);
    writeln;
  end;
end.