 		   (lazy-seq
 		     (cons (vec rest) (runner (next rest))))))]
     (runner sqn)))
+
 
 ;;; Math
 

	(sequential? thing)) ::set
    :else                    ::other))

;;; Technical Helpers

(defn ensure-length

       (if (not (empty? data#))
	 (print-summary (summarize data#))))))

(defmacro memo-fn
  "Defines memoized, anonymous function."
  [name args & body]
  `(let [cache# (ref {})]
     (fn ~name ~args
       (if (contains? @cache# ~args)
