Repetition

start:        die  /^\Z/            {$item [1]}

die:          number(?) 'd' number  {my $s = 0;
                                     foreach (1 .. ($item [1] -> [0] || 1)) {
                                        $s += 1 + int rand $item [3]
                                     }
                                     $s}

number:       /\d+/