How can I make this work.

do-block.raku

# --------------------------------------------------------------------
# do-block.raku

my %bazes;

class Baz {
    has $.id;
    has $.block;

    method make (
        $id,
        $block,
    ) {
        %bazes{$id} = self.bless:
            :$id,
            :$block,
        ;
    }

    method do-block (*@a) {
        note "join: ", @a.join: '-';
        note "WHAT: ", $.block.WHAT;
        note "raku: ", $.block.raku;
        note "sign: ", $.block.signature;
        say $.block(| @a);
        note "This doesn't get printed, so previous line failed, eh.";
    }

}

Baz.make: 'b1', -> $x, $y { $x + $y };
Baz.make: 'b2', -> $x, $y { $x * $y };

note "Expecting «4\\n» from｢\%bazes<b1>.do-block(1, 3)｣.";
%bazes<b1>.do-block(1, 3);

note "Expecting «8\\n» from｢\%bazes<b2>.do-block(2, 4)｣.";
%bazes<b2>.do-block(2, 4);

# --------------------------------------------------------------------
=finish

The code contains statements I used for debugging.
Prints:

Expecting «4\n» from｢%bazes<b1>.do-block(1, 3)｣.
join: 1-3
WHAT: (Block)
raku: -> $x, $y { #`(Block|35203328) ... }
sign: ($x, $y)
Too many positionals passed; expected 1 argument but got 3
  in method block at do-block.raku line 6
  in method do-block at do-block.raku line 25
  in block <unit> at do-block.raku line 35