OPP first step -- parse a term.

src/HLL/Actions.pm

@@ -1,5 +1,11 @@
 class HLL::Actions;
 
+method termish($/) {
+    make $<noun>.ast;
+}
+
+method noun:sym<term>($/) { make $<term>.ast }
+
 method integer($/) {
     make $<decint> 
          ?? string_to_int( $<decint>, 10)

src/HLL/Grammar.pm

@@ -1,5 +1,12 @@
 grammar HLL::Grammar;
 
+    token termish {
+        <noun>
+    }
+
+    proto token noun { <...> }
+    token noun:sym<term> { <term> }
+
     token quote_delimited {
         <starter> <quote_atom>* <stopper>
     }

src/NQP/Actions.pm

@@ -1,13 +1,16 @@
 class NQP::Actions is HLL::Actions;
 
-#method TOP($/) {
-#    make $<value>.ast;
-#}
+method TOP($/) { make $<EXPR>.ast; }
+
+method term:sym<value>($/) { make $<value>.ast; }
 
 method value($/) {
     my $past := PAST::Val.new( 
-                    :value($<integer> ?? $<integer>.ast !! $<quote_delimited>.ast)
-    );
+                    :value($<integer> 
+                      ?? $<integer>.ast 
+                      !! $<quote_delimited>.ast
+                      )
+                );
     make $past;
 }
 

src/NQP/Grammar.pm

@@ -1,6 +1,9 @@
 grammar NQP::Grammar is HLL::Grammar;
 
-token TOP { <quote> }
+token TOP { <EXPR> }
+
+proto token term { <...> }
+token term:sym<value> { <value> }
 
 token value {
     | <integer>

src/cheats/hll-grammar.pir

@@ -348,6 +348,27 @@ position C<pos>.
 .end
 
 
+=item EXPR(...)
+
+An operator precedence parser.
+
+=cut
+
+.sub 'EXPR' :method
+    .local string termish
+    termish = 'termish'
+
+    .local pmc here, term
+    .local int pos
+    (here, pos) = self.'!cursor_start'()
+
+    here = here.termish()
+    unless here goto fail
+
+  fail:
+    .return (here)
+.end
+
 =cut
 
 # Local Variables: