$scr no parsed

cbl214.pl6

cat cbl214.pl6
#!/opt/rakudo-star-2016.10/bin/perl6
use v6;
use Grammar::Tracer;
#use Grammar::Debugger;

grammar TEST {

rule  TOP     { \s* [<sqlstart> <sqltext> <sqlend>]}
  token sqlstart  {'EXEC SQL'}
  token sqlend  {'END-EXEC'}
  regex sqltext     { .+ <before 'END-EXEC'> }
}
my $cbl = q:to/FIN_INI/;
EXEC SQL include sqlca END-EXEC
FIN_INI

my $scr = TEST.parse($cbl);
say $scr;


result :
cbl214.pl6
TOP
|  sqlstart
|  * MATCH "EXEC SQL"
|  sqltext
|  * MATCH "include sqlca "
|  sqlend
|  * MATCH "END-EXEC"
* MATCH "EXEC SQL include sqlca END-EXEC"
(Any)