function pow(x,y:longint):qword;
begin
if y=0 then pow:=1
else if odd(y) then pow:=x*pow(x,y-1)
else pow:=sqr(pow(x,y div 2));
end;
procedure suma(x:qword;var r,e:qword);
var s,d,p,p1:integer;
begin
d:=2;s:=1;p1:=1;
while x>1 do begin
p:=0;
while x mod d=0 do begin
inc(p);
x:=x div d
end;
if p<>0 then begin
p1:=p1*(1+p);
s:=s*((pow(d,p+1)-1)div(d-1));
end;
inc(d);  end;
r:=p1;
e:=s;
end;
procedure main;
var f,g:Text;
r,e,n:qword;
begin
assign(g,'ssnd.out');rewrite(g);
assign(f,'ssnd.in');reset(f);     readln(f);
while not eoln(f) do begin
read(f,n);
suma(n,r,e);writeln(g,r,' ',e);
readln(f);end;
close(g);
end;
begin
main;end.