mD6 + nD10 in Perl6 (1)

dice1.pl

use v6;

sub mD6 {
    gather { take 6.rand.Int + 1 for 0..* }
}

sub nD10 {
    gather { take 10.rand.Int for 0..* }
}

my ($m, $n) = @*ARGS;
say [+] mD6[1..$m], nD10[1..$n];