jhannes

(defn print-subtree [subtree prefix]
  (if (empty? subtree)
    ""
    (apply str prefix (first subtree) "\n"
           (map #(print-subtree %1 (str "\t" prefix)) (rest subtree)))))

(defn print-tree [tree]
  (print-subtree tree ""))

(deftest print-empty-tree