(defn print-map
  ([mymap] (doseq [[k v] (map vector (keys mymap) (vals mymap))]
             (println (str k " " v))))
  ([mymap wanted_part]
     (if (= wanted_part "k" )  (doseq [[k v] (map vector (keys mymap) (vals mymap))]
                                 (println (str k)))
         (if (= wanted_part "v")
           (doseq [[k v] (map vector (keys mymap) (vals mymap))]
             (println (str v)))))))