anchor.diff:          (load-abbr :nai-n "ん")
           (load-abbr :nai-n "ねぇ")
           (load-abbr :nai-n "ねー")
  -        
  +
           (load-abbr :nakereba "なきゃ")
           (load-abbr :nakereba "なくちゃ")
   
  
positive.code:   (constantly t)
    :description "semi-final not final"
    :score -15)
      
  (defun get-penalties (seg-left seg-right)
    (loop for fn in *penalty-list*
       for penalty = (funcall fn seg-left seg-right)
  
negative.code: 
  (def-generic-synergy synergy-na-adjectives (l r)
    (filter-is-pos ("adj-na") (segment k p c l) (or k l (and p c)))
    (filter-in-seq-set 2029110 2028990) ;; な ; に
    :description "na-adjective"
    :score 15
    :connector " ")
  