use warnings;
use strict;

use Sexagesimal ':constant'; # Babylonian number class

my $counter = $ARGV[0];

my $product = 1;

while ($counter > 1) {
	$product *= $counter;
	$counter--;
}

print "$product\n";