use strict;
use warnings;

use feature ':5.10';

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

say factorial(@ARGV);