                                tuples)]
     ;;(print filter-content)
     (if (not (empty? filter-content))
-      (doall (map #(list (first %) (str/split (second %) #": ")) filter-content))
+      (map #(list (first %) (str/split (second %) #": ")) filter-content)
       )))
+
 
 (defn list2tree [ls keyword]
   "make list to tree"

        (recur (rest listset))
        ))))

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

      (printline filepath filter-content)
      )))


(defn check-keyword-content [tuples keyword]
  "cut content those including keyword:
return ((linenum \"keyword content\")..)
"
  (let [filter-content (filter #(-> (str "(?<=" keyword ":" ").*$")
                                    (re-pattern)
