program cf;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  tar = array [1..3000] of integer;

var
  a: tar;
  i, n, k, j: integer;

function dlina(a: tar): integer;
var
  i: integer;
begin
  i := 3000;
  while (a[i] = 0) do
    dec(i);
  dlina := i;
end;

procedure pr(n: integer; var a: tar);
var
  i, j, k, len: integer;
begin
  for i := dlina(a) downto 1 do
    a[i] := a[i] * n;
  for i := 1 to dlina(a) do begin
    inc(a[i + 1], a[i] div 10);
    a[i] := a[i] mod 10;
  end;
end;

begin
  readln(n);
  a[1] := 1;
  for i := 1 to n do
    pr(i, a);
  for i := dlina(a) downto 1 do
    write(a[i]);
  readln;
end.