(defun tree-walk (path func)
  (loop for entry in (directory "*")
    if (directory-p entry) (collect (tree-walk entry func))
    collect (funcall func entry)))