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);

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.