 
 TUPLE: just-parser p1 ;
 
-C: just just-parser ( p1 -- parser )
+C: just just-parser
 
 M: just-parser parse ( input parser -- result )
     #! Calls the given parser on the input removes


TUPLE: epsilon-parser ;

C: epsilon epsilon-parser ( -- parser )

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


TUPLE: succeed-parser result ;

C: succeed succeed-parser

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