anchor.diff:       2797740 ;; いちえんをわらうものはいちえんになく
        2827424 ;; きはさらさらない
        2827754 ;; おとこはだまって
  +     2833986 ;; あくにつよいはぜんにもつよい
  +     2833961 ;; 梅は食うとも核食うな中に天神寝てござる
  +     2833957 ;; 老兵は死なず只消え去るのみ
  +     2833956 ;; 山より大きな猪は出ぬ
  +     2833597 ;; 君子は豹変す
        )
       (l k)
     (ha (search "は" k :from-end t))
  
positive.code:      2419080 ;; 鉄は熱いうちに鍛えよ
       2420150 ;; 老いては子に従え
       2566010 ;; 秋茄子は嫁に食わすな
       )
      (l k)
    (ha (search "は" k))
  
negative.code: 
  (def-do-split 2523480 1442750) ;; ど田舎
  
  #|
  (query (:select 'kt.seq 'kt.text
                  :from (:as 'kanji-text 'kt) (:as 'sense-prop 'sp)
                  :where (:and (:like 'kt.text "し%")
                               (:= 'sp.seq 'kt.seq) (:= 'sp.tag "pos")
                               (:in 'sp.text (:set *pos-with-conj-rules*)))))
  |#
  
  (defmacro def-shi-split (seq seq-b &key (score 30) (seq-a '("し" 1157170)))
    (let ((name (intern (format nil "~a~a" :split-shi- seq))))
  