main

use MySlang;
<begin>xxx<end1>

MySlang.pm6

role G {
    token term:sym<end1> { '<begin>' ~ '<end1>' \w+ }
    token term:sym<end2> { '<begin>' ~ '<end2>' \w+ }
}

role A {
    method term:sym<end1>(Mu $/) { say 'end1' }
    method term:sym<end2>(Mu $/) { say 'end2' }
}

sub EXPORT {
    $*LANG.refine_slang: 'MAIN', G, A;
    {};
}

runner.p6

for ^10 {
    exit 42 unless run <perl6 -Isandbox/ sandbox/main>
}