--- a/progs/app7.scala	Tue Oct 29 12:24:22 2013 +0000
+++ b/progs/app7.scala	Wed Oct 30 03:36:10 2013 +0000
@@ -4,13 +4,6 @@
   def parse_all(ts: I) : Set[T] =
     for ((head, tail) <- parse(ts); if (tail.isEmpty)) 
       yield head
-
-  def || (right : => Parser[I, T]) : Parser[I, T] = 
-      new AltParser(this, right)
-  def ==>[S] (f: => T => S) : Parser [I, S] = 
-      new FunParser(this, f)
-   def ~[S] (right : => Parser[I, S]) : Parser[I, (T, S)] = 
-      new SeqParser(this, right)
 }