#!/usr/bin/perl
use strict;

sub factorial
{
	return unless int($_[0]) == $_[0];
	return 1 if $_[0] == 1;
	return $_[0] * factorial($_[0] - 1);
}

print factorial($ARGV[0]), "\n";