     'effect-name' sp repeat0 ,
     ")" token sp hide ,
   ] seq* [
-    first2 <ast-stack-effect>
+    first2 ast-stack-effect boa
   ] action ;
 
 : 'define' ( -- parser )
   [
     ":" token sp hide ,
-    'identifier' sp [ ast-identifier-value ] action ,
+    'identifier' sp [ value>> ] action ,
     'stack-effect' sp optional ,
     'expression' ,
     ";" token sp hide ,
-  ] seq* [ first3 <ast-define> ] action ;
+  ] seq* [ first3 ast-define boa ] action ;
 
 : 'quotation' ( -- parser )
   [
     "[" token sp hide ,
-    'expression' [ ast-expression-values ] action ,
+    'expression' [ values>> ] action ,
     "]" token sp hide ,
-  ] seq* [ first <ast-quotation> ] action ;
+  ] seq* [ first ast-quotation boa ] action ;
 
 : 'array' ( -- parser )
   [
     "{" token sp hide ,
-    'expression' [ ast-expression-values ] action ,
+    'expression' [ values>> ] action ,
     "}" token sp hide ,
-  ] seq* [ first <ast-array> ] action ;
+  ] seq* [ first ast-array boa ] action ;
 
 : 'word' ( -- parser )
   [
     "\\" token sp hide ,
     'identifier' sp ,
-  ] seq* [ first ast-identifier-value f <ast-word> ] action ;
+  ] seq* [ first value>> f ast-word boa ] action ;
 
 : 'atom' ( -- parser )
   [
     'identifier' ,
-    'integer' [ <ast-number> ] action ,
-    'string' [ <ast-string> ] action ,
+    'integer' [ ast-number boa ] action ,
+    'string' [ ast-string boa ] action ,
   ] choice* ;
 
 : 'comment' ( -- parser )

  "," , ;

M: ast-identifier (literal)
  dup ast-identifier-vocab [
   "factor.get_word(\"" ,
   dup ast-identifier-vocab ,
   "\",\"" ,
   ast-identifier-value ,
   "\")" ,
  ] [
   "factor.find_word(\"" , ast-identifier-value , "\")" ,
  ] if ;

M: ast-identifier (compile)


M: ast-quotation (literal)
  "factor.make_quotation(\"source\"," ,
  values>> do-expressions
  ")" , ;

M: ast-quotation (compile)
  "factor.push_data(factor.make_quotation(\"source\"," ,
  values>> do-expressions
  ")," , ;

M: ast-array (literal)
  "[" ,
  elements>> [ "," , ] [ (literal) ] interleave
  "]" , ;

M: ast-array (compile)
