my $input = 6;
my $val =1;
for(my $i=$input;$i>=1;$i--)
{
	$val = $i*$val;
}
print "$val\n";