my $p  = 1;
       $p *= $_ for 2 .. $n;