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


TUPLE: fail-parser ;

C: fail fail-parser ( -- parser )

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


TUPLE: satisfy-parser quot ;

C: satisfy satisfy-parser

M: satisfy-parser parse ( input parser -- list )
    #! A parser that succeeds if the predicate,
