--- a/ast/Exp.d	Sun Apr 20 01:08:50 2008 +0200
+++ b/ast/Exp.d	Sun Apr 20 11:20:28 2008 +0200
@@ -11,6 +11,8 @@
     Binary,
     Negate,
     IntegerLit,
+    MemberLookup,
+    ArrayLookup,
     Identifier,
     AssignExp,
     CallExp,
@@ -42,14 +44,14 @@
 
 class AssignExp : Exp
 {
-    this(Identifier identifier, Exp exp)
+    this(Exp identifier, Exp exp)
     {
         super(ExpType.AssignExp);
         this.identifier = identifier;
         this.exp = exp;
     }
 
-    Identifier identifier;
+    Exp identifier;
     Exp exp;
 }
 
@@ -105,6 +107,32 @@
     Token token;
 }
 
+class MemberLookup : Exp
+{
+    this(Exp target, Identifier child)
+    {
+        super(ExpType.MemberLookup);
+        this.target = target;
+        this.child = child;
+    }
+
+    Identifier child;
+    Exp target;
+}
+
+class ArrayLookup : Exp
+{
+    this(Exp target, IntegerLit pos)
+    {
+        super(ExpType.ArrayLookup);
+        this.target = target;
+        this.pos = pos;
+    }
+
+    Exp target;
+    IntegerLit pos;
+}
+
 class Identifier : Exp
 {
     this(Token t)