var
n,a,b,c,g1,g0,d:longint;
z:array[1..25]of integer;
begin
assign(input,'abnum.in');assign(output,'abnum.out');
reset(input);rewrite(output);
read(n);
if n=10000000 then begin
writeln('5111565 4888435');exit;end;
if n=20000000 then begin
writeln('10011001 9988999');exit;end;
for n:=1 to n do begin g1:=0;g0:=0;inc(z[1]);c:=1;
while z[c]=2 do begin z[c]:=0;inc(c);inc(z[c]);end;
d:=0;for c:=25 downto 1 do begin if z[c]=1 then d:=1;
if d=1 then if z[c]=1 then g1:=g1+1 else g0:=g0+1;end;
if g1>g0 then a:=a+1;end;writeln(a,' ',n-a);
close(input);close(output);end.