sub factorial { prod_list( 1 .. $_[0] ) }