   (->> (champernowne-word) (take 16)) => [0 1 2 3 4 5 6 7 8 9 1 0 1 1 1 2])
 
 
+
+
+
+
+
+
 ;;;;;;;;;;;;;;;;
 ;;; Anti EP ;;;;
 ;;;;;;;;;;;;;;;;

(fact "The description-length is how long the string representation of the expression is."
  (description-length (repeat 65 \G)) => 13)


(defn result-length [result]
  (-> result print-str count))

(fact "The result-length is how long the string representation of the evaluated result is."
  (result-length (repeat 65 \G)) => 131)


(defmacro randomness [expr]
  `(/ (description-length ~expr) (result-length ~expr)))

;;; Blurred Lines ;;;
;;;;;;;;;;;;;;;;;;;;;

(defmethod live/play-note :default
  [{hertz :pitch seconds :duration}]
  (when hertz (instrument/overchauffeur (midi->hz hertz) seconds 0.02)))
