(def sentences
  (->>  (-> (slurp "http://www.news.com")                         ; open url
            (strip-html)                                          ; remove html
            (str/split #"[.!?]"))                                 ; split by sentence
       ; feed through LC, trim and split by word, resulting a vector
       (map (comp #(str/split % #"\s+") str/trim str/lower-case))
       (into #{})                                                 ; pack to hashmap
       ))