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 writeln (g,i);write(g,fm);
         i:=i+1;
     until  n=1;  close(f);close(g);
end.