--- a/app7.scala	Wed Nov 21 07:28:28 2012 +0000
+++ b/app7.scala	Wed Nov 21 09:04:11 2012 +0000
@@ -9,6 +9,8 @@
       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)
 }