         (recur (rest listset))
         ))))
 
+
 (defn write-keyword-sentence [ls keyword path]
   "write keyword content in level"
  (with-open [wrtr (io/writer path)]

    (doall (map #(printf "  |-- %s\n" %) tuples))
    (println)))

(defn print-with-keyword [filepath tuples keyword]
  (let [filter-content (filter #(-> (str "(?<=" keyword ":" ").*$")
                                    (re-pattern)

                               tuples)]
    ;;(print filter-content)
    (if (not (empty? filter-content))
      (map #(list (first %) (str/split (second %) #": ")) filter-content)
      )))


(defn list2tree [ls keyword]
  "make list to tree"
