binary mobile in Clojure