var f,d,n:int64;
    m,i,j:integer;
    fact:array[1..16] of byte;
    repet:array[1..355]of longint;
begin
assign(input,'numere2.in');reset(input);
assign(output,'numere2.out');rewrite(output);
readln(n);
m:=0;
while n<>1 do begin
  d:=2;
  f:=0;
  while n mod d<>0 do d:=d+1;
  while n mod d=0 do begin f:=f+1; n:=n div d;end;
  m:=m+1;
  fact[m]:=d;
  repet[m]:=f;
end;
close(input);close(output);
end.