1 files changed, 47 insertions, 0 deletions
diff --git a/src/cli/runtime/ASeq.cs b/src/cli/runtime/ASeq.cs
new file mode 100644
index 00000000..9636e80b
--- /dev/null
+++ b/src/cli/runtime/ASeq.cs
@@ -0,0 +1,47 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Common Public License 1.0 (http://opensource.org/licenses/cpl.php)
+ *   which can be found in the file CPL.TXT at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+using System;
+
+namespace clojure.lang
+	{
+	
+public abstract class ASeq : ISeq{
+
+public Object peek() {
+    return first();
+}
+
+public IPersistentList pop() {
+    return rest();
+}
+
+public int count() {
+    return 1 + RT.count(rest());
+}
+
+public ISeq seq() {
+    return this;
+}
+
+public IPersistentCollection cons(Object o) {
+    return new Cons(o, this);
+}
+
+#region ISeq Members
+
+abstract public object first();
+
+abstract public ISeq rest();
+
+#endregion
+	}
+
+}