 
 TUPLE: apply-parser p1 quot ;
 
-C: <@ apply-parser ( parser quot -- parser )
+C: <@ apply-parser
 
 M: apply-parser parse ( input parser -- result )
     #! Calls the parser on the input. For each successful


TUPLE: some-parser p1 ;

C: some some-parser ( p1 -- parser )

M: some-parser parse ( input parser -- result )
    #! Calls the parser on the input, guarantees


TUPLE: epsilon-parser ;

C: epsilon epsilon-parser

M: epsilon-parser parse ( input parser -- list )
    #! A parser that parses the empty string. It
