sub factorial {
        reduce { $a * $b } 1..$_[0]
    }