(deftest bryan-sequences ()
  (check
    (mirror? "abba")
    (mirror? "aa")
    (not (mirror? "abc"))
    (= 1 (position #\a "fantasia"))
    (= 4 (position #\a "fantasia" :start 3 :end 5))
    (= 7 (position #\a "fantasia" :from-end t))
    (equal "follows" (second-word "Form follows function."))))