Select Code to Download

use strict;
use warnings;
...
my $rolls = $grammar->parse(\$input, 'Actions');
    
print "Result: @$$rolls\n";

Dice_Expression ::= Simple_Dice action => ::first