--- 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)))