//Pascal ABC è ABC.net

Var
A,i,N:integer;
S:string;
Begin
WriteLn('Ââåäè öåëîå ÷èñëî');
ReadLn(A);

While A mod 2 = 0 do
Begin
S:=S+'*2';
A:=A div 2;
End;


i:=1;
N:=trunc(Sqrt(A))+2;
Repeat
i:=i+2;
 While A mod i = 0 do
  Begin
  S:=S+'*'+IntToStr(i);
  A:=A div i
  End
Until i>N;

if A <> 1 then S:=S+'*'+IntToStr(A);

For i:= 2 to Length(S) do
 Write(S[i])
End.