#!/usr/bin/perl

use strict;
use warnings;

my $input = shift;
chomp $input;
print factorial($input);

sub factorial {
	my $val = shift;
	return 1 if $val == 0 or $val == 1;
	return $val * factorial($val - 1);
}