           coll))
 
 (defn types->hash-map
-  "Splits types and converts them into a hash-map"
+  "Split types and convert them to into a hash-map"
   [pddl-types]
   (types->hash-map-helper (split-up pddl-types)))
 

       ;; Create dot language file in dot folder.
       (doall
        (pci/write->file new-dot-filename
                     (print (PDDL->dot input-domain dot-template))))

       ;; Create a png file from dot
       (fs/exec "dot" "-Tpng" "-o" new-png-filename new-dot-filename)

       ;; Open image with external program or with built-in JFrame?
       (if-not (= image-displayer "auto")
         (doall
          (fs/exec image-displayer new-png-filename)
          (System/exit 0))
         (doall

       ;; Settings for displaying the generated diagram.
       (def img (ref nil))
       

            (clojure.string/join " " coll))))

(defn types->hash-map-helper
  "Convert split type list (['<expr>' '<subtype1.1> <subtype1.2> ...' '<type1>']
  to a hash-map {'<type1>': ['<subtype1.1>' '<subtype1.2>' ...], '<type2>': ...}"
  [coll]
  (reduce (fn [h-map [_ objs obj-type]]
