                                path)
                        (str path "/project.org"))
                    path)]
+    (println keyword)
     (with-open [wrtr (io/writer realpath)]
       (loop [listset ls]
         (if (not (empty? listset))

            [filepath & tuples] thisls]
        (if keyword
          (print-with-keyword filepath tuples keyword)
          (printline filepath tuples)
          )
        ;;(println)



;;:= TODO: cannot accept several keywords, fix it
;;:= TEST: test
(defn write-keyword-sentence [ls keyword path]
  "write keyword content in level"
  (let [realpath (if (.isDirectory (io/file path))
