Friendpaste

--- Revision None
+++ Revision 343563313633
@@ -0,0 +1,7 @@
+(deftype SeqFly [s]
+  clojure.lang.ISeq
+    (first [this] (first (some-seq s)))
+    (next  [this] (SeqFly. (last (some-seq s))))
+    (more  [this] (next this))
+  Object
+    (toString [this] (str s)))
a	b
	0	+	(deftype SeqFly [s]
	0	+	clojure.lang.ISeq
	0	+	(first [this] (first (some-seq s)))
	0	+	(next [this] (SeqFly. (last (some-seq s))))
	0	+	(more [this] (next this))
	0	+	Object
	0	+	(toString [this] (str s)))
...