anchor.diff:                (search "do " word1)
                 (search "me " word1)
                 (search "ba " word1))
  -      (setf word1 (cl-ppcre:register-groups-bind 
  -                      (prelude preposition fh initial after) 
  +      (setf word1 (cl-ppcre:register-groups-bind
  +                      (prelude preposition fh initial after)
                         ("^(.*)\\b(ba|de|mo|do)\\s+(fh)?([aoeuiAOEUIáóéúíÁÓÉÚÍ])(.*)$"
                          word1)
                       (strcat prelude (char-string (elt preposition 0))
  
positive.code:              (and first-vowel-pos
                    (or (find first-vowel "āōēūī" :test #'char=)
                        (and (find first-vowel "aoeui")
                             (or (and (< (1+ first-vowel-pos) (length syllable)) 
                                      (find (elt syllable (1+ first-vowel-pos))
                                            "aoeuiy"))
                                 (and (< (+ 2 first-vowel-pos) (length syllable)) 
                                      (find (elt syllable (+ 2 first-vowel-pos))
                                            "aoeuiy")
                                      (not (eql #\w (elt syllable (1+ first-vowel-pos))))
  
negative.code:             (strcat string "anna")      ; -(e)anna??
              )
  
             ((or (and (= 2 syllables) ; 1♂, -[lnr]; 2♀*, 3 -i[lnr], 4* — 2 syl.
                       (eq :m gender)
                       (= 1 declension)
                       (let ((last (last-elt string)))
  