program faktroial;
var a:integer;

function fac(n:integer):integer;
begin
	if n=1 then fac:=1
	else fac:=n*fac(n-1);
end;

begin
	readln(a);
	writeln(fac(a));
end.