           [
             over ebnf-var? [
               " " % # " over nth :> " %
-              name>> %            ] [
+              name>> %
+            ] [
               2drop
             ] if
           ] each-index
           " " %
-          %           " nip ]" %          ] "" make    ] if
+          %
+          " nip ]" %   
+       ] "" make
+    ] if
   ] if ;
 
 M: ebnf-var build-locals ( code ast -- code )

<PRIVATE

: lookup-rule ( rule parser -- rule' )
    2dup rule [ 2nip ] [ no-rule ] if* ;
TUPLE: tokenizer-tuple any one many ;

: default-tokenizer ( -- tokenizer )

    [ 'sequence' , "=>" syntax , 'action' , ] seq* [ first2 <ebnf-action> ] action ,
    'sequence' ,
  ] choice* ;

: 'choice' ( -- parser )
  'actioned-sequence' sp repeat1 [ dup length 1 = [ first ] [ <ebnf-sequence> ] if  ] action "|" token sp list-of [
    dup length 1 = [ first ] [ <ebnf-choice> ] if
  ] action ;

: 'tokenizer' ( -- parser )
  [
    "tokenizer" syntax ,
    "=" syntax ,
