var N,i,count: integer;
begin
    readln(N);
    i:=1;
    count:=1;
    while i <= N do
    begin
        count:=count*i;
        i:=i+1;
    end;
    writeln(count);
end.