PROGRAM Giaithua;
USES crt;
VAR n,i,s1:INTEGER;a:ARRAY[1..100] OF INTEGER ;dem:BYTE; f1,f2 :TEXT ;
FUNCTION GT(x:BYTE):LONGINT;
VAR i: BYTE; y:LONGINT;
BEGIN
y:=1;
FOR i:= 1 TO x DO
y:=y*i;
GT:=y;
END;
PROCEDURE TSNT(x:LONGINT);
VAR i,k: LONGINT;
BEGIN
k:= 1;
FOR i:= 2 TO x DO
WHILE x MOD i = 0 DO
BEGIN
x:=x DIV i ;
a[k]:=i;
k:= k+1 ;
END;
s1:=k-1;
END;
BEGIN
assign(f1,'Songuyen.inp');
assign(f2,'Giaithua.out');
Reset(f1);
Rewrite(f2);
Readln(f1,n);
TSNT(GT(n));
dem:=1;
FOR i:=1 TO s1 DO
IF (a[i] = a[i+1]) THEN dem:=dem+1 ELSE IF dem =1 THEN write(f2,a[i],'*') ELSE BEGIN write(f2,a[i],'(',dem,')*'); dem:=1;END;
close(f1);
close(f2);
END.
