$ perl6 -e 'say [*] 1..@*ARGS[0]' 6
720