use v6-perlito;
class Main {
token digits {
[ '1' | '2' | '3' ]+
}
token alfas {
[ 'a' | 'b' | 'c' ]+
}
token alnums {
[ <.digits> | <.alfas> ]+
}
say '1..1';
my $m = Main.alnums( '123abc', 0);
say '# from: ', $m.from;
say '# to: ', $m.to;
if $m.to != 6 {
print "not ";
}
say 'ok 1';
}