wrongbones.p6

use v6;

grammar Simpl {
  token xxx { 'x' }
  token c { 'c' }
  token end { '!' }

  token xc { <xxx>*<c> }
  token xend { <xxx>*<end> }
}

my $sample="cx!";
my $answer=($sample ~~ /<Simpl::xend>/);
say $answer.perl;

use v6;

# grammar Simpl {
my  token xxx { 'x' }
my  token c { 'c' }
my  token end { '!' }

my  token xc { <xxx>*<c> }
my  token xend { <xxx>*<end> }
# }

my $sample="cx!";
my $answer=($sample ~~ /<xend>/);
say $answer.perl;