APALoff { Паскаль }
Function NOD(a,b : Longint) : Longint;
Begin
  If (a mod b)=0 then NOD:=b else Nod:=NOD(b,a mod b);
end;

Function NOK(a,b : Longint) : Longint;
Begin
  NOK:=abs(a*b) div NOD(a,b);
End;

Function SumCifr(A : Longint) : Integer;
Begin
  If A>0 then SumCifr:=(A mod 10) +SumCifr(A div 10) else SumCifr:=0;
End;

Var x : Integer;
Begin
  Readln(x);
  Writeln(NOK(x,SumCifr(x)));
end.