program numere2;
var P,m,n,j : extended;
    i : 1..1000000000000000000;
    f : text;
    ok : boolean;
begin
assign(f,'numere2.in');
reset(f);
read(f,P);
close(f);

if P<>1 then begin

ok := false;
i := 1;

repeat
i := i+1;
if trunc(P) mod i = 0 then ok := true;
until ok;



m := 1;
while trunc(P/i) <> 1 do begin
m := m+1;
P := P/i;
end;

assign(f,'numere2.out');
rewrite(f);

writeln(f,P:1:0);
writeln(f,m:1:0);

close(f);
end
else begin
     assign(f,'numere2.out');
     rewrite(f);

        writeln(f,1);
        writeln(f,1);

        close(f);
        end;

end.