#!/usr/bin/perl -w
use strict;

sub head { $_[0] }
sub tail { @_[1..$#_] }
sub prod_list {
  1 == @_ 
    ? head @_ 
    : (head @_) * prod_list( tail @_ ) 
}
sub factorial { prod_list 1 .. $_[0] }

print factorial shift;