(defn count-hidden [node]
  (match node
    :null 0
    
    {"hidden" true} 1
    
    {"firstChild" node-a "secondChild" node-b} (+ (count-hidden node-a)
                                                  (count-hidden node-b))))

(defn collect-hidden [node]
  (def hidden @[])
  (defn put-hidden [node]
    (match node
      :null nil
  
      {"hidden" true} (array/push hidden node)
  
      {"firstChild" node-a "secondChild" node-b} (do
                                                   (put-hidden node-a)
                                                   (put-hidden node-b))))
  (put-hidden node)
  hidden)

(defn zoom-level []
  (let [desktop (current-desktop)]
    (print (count-hidden (desktop "root")))))
(defn level-zero []
  (let [desktop (current-desktop)]
    (each node (collect-hidden (desktop "root"))
      (rotate-clockwise)
      (toggle-hidden node))))

      "zoom-level" (zoom-level)
      "level-zero" (level-zero)