Function Factorial(i:uint64):BigInteger;
Begin
result:=i;
For i:= 2 to i-1 do
result*=i;
End;

Var N:uint64;

Begin
Write('N = ');ReadLn(N);
WriteLn(Factorial(N));
End.