#!/usr/bin/perl6
grammar A {
        rule TOP {
                ^ < \w || \s > + $
        }
}
my $str = 'the quick brown fox jumps over the lazy dog';
say A.parse($str);
# Nil