program descompunere;
var i,fm:integer;f,g:text;n:longint;
begin
     assign(f,'numere2.in');reset(f);
     assign(g,'numere2.out');rewrite(g);readln(f,n);
     i:=2;
     repeat
     fm:=0;
     while n mod i=0 do
     begin
         fm:=fm+1;
         n:=n div i;
     end;
          if fm<>0 then
         if  (n=1) then writeln (g,i)
                           else
         i:=i+1;
     until  n=1;write(g,fm);  close(f);close(g);
end.