program PrimeFact;
{$APPTYPE CONSOLE} 

uses
	SysUtils, Math;  

var
	n: Integer;
	ans: String;
	i: Integer;
	top: Integer;
	count: Integer;

begin
	ReadLn(Input, n);
	top := Round(Sqrt(Power(10, 9))) + 2;
	for i := 2 to top do
	begin
		count := 0;
		while n mod i = 0 do
		begin
			n := n div i;
			count := count + 1;
		end;
		if count = 1 then
			ans := ans + IntToStr(i) + '*'
		else if count > 1 then
			ans := ans + IntToStr(i) + '^' + IntToStr(count) + '*';
	end;
	if n <> 1 then
	begin
		ans := ans + IntToStr(n);
		WriteLn(ans);
	end
	else
	begin
		Delete(ans, Length(ans), 1);
		WriteLn(ans);
	end;
end.