--- Revision None
+++ Revision 643939666435
@@ -0,0 +1,8 @@
+(deftype SeqFly [s]
+  clojure.lang.ISeq
+    (first [this] (first (split s)))
+    (next  [this] (SeqFly. (last (split s))))
+  clojure.lang.Seqable 
+    (seq [this] this)
+  Object
+    (toString [this] (str s)))