       :else thing))
    coll))
 
-(defn prepare-for-conexp [hash-map]
+(defn- prepare-for-conexp [hash-map]
   (into {} (for [[k v] (symbolify hash-map)]
              [k (set v)])))
 
-(defn role-map->concept-map [role-map]
+(defn- role-map->concept-map [role-map]
   (assert (= 1 (count role-map)))
   (loop [concept-map {},
          is-as (get role-map (first (keys role-map)))]

     'conexp.contrib.dl.languages.EL-gfp-exploration
     'conexp.contrib.dl.languages.interaction)

(defn read-wiki-model [roles]
  (let [[concepts, roles] (read-wiki roles)]
    (interpretation->model concepts roles :base-lang EL-gfp)))

(defn collect [start relation]
  (let [related (set (for [[x y] relation,
                           :when (or (contains? start x)
                                     (contains? start y)),

            (println line-count)
            map))))))

(defn- capitalize
  "Capitalizes word."
  [word]
  (if (empty? word)
    word
    (apply str (Character/toUpperCase (first word)) (rest word))))

(defn- symbolify
  "Transforms every string in coll to a symbol, walking through
  sequential collectiones recursively."
  [coll]
  ((fn transform [thing]
     (cond
      (string? thing) (symbol (capitalize thing)),
