gistfile1.clj

user> (def tree '{:val root 
                  :children [{:val left},
                             {:val right
                              :children [{:val rightleft}]}]})
                             
user> (defn paths [{:keys [val children]}]
        (if (seq children)
          (for [child children,
                path (paths child)]
            (cons val path))
          [[val]]))

user> (paths tree)
((root left) (root right rightleft))