program Project1;

var
  a, c, i: integer;
  s: string;


  procedure fib(a: integer);
  var
    f, f1, f2, c: integer;

  begin
    f1 := 1;
    f2 := 1;
    s := '';
    while (f2 <= a) do
    begin
      f := f1 + f2;
      f1 := f2;
      f2 := f;
    end;
    while (a > 0)do
    begin
      if (a >= f1) then
      begin
           s += '1';
           a -= f1;
      end
      else begin
           s += '0';
      end;
      f := f2 - f1;
      f2 := f1;
      f1 := f;
    end;
    while (f2 > 1) do
    begin
      f := f2 - f1;
      f2 := f1;
      f1 := f;
      s += '0';
    end;
    writeln(s);
 end;

begin
  Read(a);
  fib(a);

  readln;
  readln;

end.