 
 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: just-parser p1 ;

C: just just-parser ( p1 -- parser )

M: just-parser parse ( input parser -- result )
    #! Calls the given parser on the input removes


TUPLE: succeed-parser result ;

C: succeed succeed-parser

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