program Factorization;

var
  A, A2, k, i: integer;

begin
  readln(A);
  A2 := A;
  k := 2;
  i := 0;
  while (k * k < A) do begin
    if A2 mod k = 0 then begin
      A2 := A2 div k;
      i := i + 1;
      if A2 mod k <> 0 then
        writeln(k, '^', i);
      k := k + 1;
      i := 0;
    end;
  end;
  readln();
end.