(ns test.core)

(deftype SeqFly [s]
  clojure.lang.ISeq
    (first [this] ())
    (next [this] ())
    (more [this] ())
  Object
    (toString [this] (str s)))