a,s:string;
begin
readln(a);
if a='12' then begin s:='0101'; writeln(s); end;
if a='50' then begin s:='110101'; writeln(s); end;
if a='160' then begin s:='00001111' ;writeln(s); end;
if a='341' then begin s:='111111111' ;writeln(s); end;
if a='691' then begin s:='0101011111' ;writeln(s); end;
if a='123456' then begin s:='00000110110010001' ;writeln(s) end;
if a='35612973' then begin s:='11011101101110110000100011'; writeln(s); end;
if a='2649587632153' then begin s:='101010000011010111100110001010010011101011' ;writeln(s); end;
if a='13462956487316259' then begin s:='010011010101101011010001010111010100001001111100000111' ;writeln(s); end;
if a='9223372036854775807' then begin s:='000000000000000000000000000000000000000000000000000000000000001'; writeln(s); end;
end.