 
 TUPLE: fail-parser ;
 
-C: fail fail-parser ( -- parser )
+C: fail fail-parser
 
 M: fail-parser parse ( input parser -- list )
     #! A parser that always fails and returns


TUPLE: apply-parser p1 quot ;

C: <@ apply-parser ( parser quot -- parser )

M: apply-parser parse ( input parser -- result )
    #! Calls the parser on the input. For each successful


TUPLE: succeed-parser result ;

C: succeed succeed-parser

M: succeed-parser parse ( input parser -- list )
    #! A parser that always returns 'result' as a
