(def *count* (atom 0))

(defstruct node :children)

(defn make-node [children]
  (swap! *count* inc)
  (struct node children))

(defn make-tree [depth]
  (if (> depth 1)
    (make-node [(make-tree (dec depth)) (make-tree (dec depth))])
    (make-node [])))

(let [depth (if *command-line-args*
              (Integer/parseInt (first *command-line-args*))
              10)]
  (make-tree depth)
  (println @*count*))