   syllable nearest the end of the word up to the end of the word."
   [phones-str]
   (->> (string/split phones-str #" ")
-       reverse
-       (take-while-inclusive #(not (re-matches #".+[12]$" %)))
-       reverse
+       (take-from-last #(re-matches #".+[12]$" %))
        (string/join " ")))
 
 

  (map stresses (phones-for-word word)))


(defn take-while-inclusive
  "Like take-while, but also includes the first item for which pred
  returns false."
  [pred coll]
  (lazy-seq
   (when-let [s (seq coll)]
     (if (pred (first s))
       (cons (first s) (take-while-inclusive pred (rest s)))
       (list (first s))))))


(defn rhyming-part

             rhyming-part
             (str "$")
             search))
       (remove #{word})))
