1 files changed, 38 insertions, 2 deletions
diff --git a/src/cli/runtime/PersistentArray.cs b/src/cli/runtime/PersistentArray.cs
index 3c766661..ced36518 100644
--- a/src/cli/runtime/PersistentArray.cs
+++ b/src/cli/runtime/PersistentArray.cs
@@ -63,7 +63,12 @@ namespace clojure.lang
 		return null;
 		}
 
-
+		public ISeq rseq()
+			{
+			if (count() > 0)
+				return new RSeq(this, count() - 1);
+			return null;
+			}
 		
 internal class Master{
 	internal readonly Entry[] array;
@@ -154,6 +159,10 @@ internal class Seq : ASeq, IndexedSeq{
         return null;
     }
 
+	public override int count() {
+        return p.count() - i;
+    }
+	
 #region IndexedSeq Members
 
 public int index()
@@ -164,6 +173,33 @@ public int index()
 #endregion
 	}
 
+class RSeq : ASeq, IndexedSeq{
+	readonly PersistentArray p;
+	readonly int i;
+
+	internal RSeq(PersistentArray p, int i){
+		this.p = p;
+		this.i = i;
+	}
+
+    public override Object first() {
+        return p.nth(i);
+    }
+
+    public override ISeq rest() {
+        if(i > 0)
+            return new RSeq(p, i - 1);
+        return null;
+    }
+
+    public int index() {
+        return i;
+    }
+
+    public override int count() {
+        return i + 1;
+    }
+}
 internal class ValIter : IEnumerator
 	{
 	internal PersistentArray p;
@@ -491,7 +527,7 @@ internal virtual PersistentArray create(int size, Object defaultVal, float loadF
 	}
 
 
-//*
+/*
 [STAThread] 
 static public void Main(String[] args){
 	if(args.Length != 3)