var n,i:longint;
begin
read(n); write(n,'=');
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
begin
while (n mod i=0)and(n div i<>1) do
begin
write(i,'*');
n:=n div i;
end;
if n div i=1 then begin writeln(n); halt; end;
end;
end.