anchor.diff:  
   (def-simple-hint
       (2422970 ;; 人には添うて見よ馬には乗って見よ
  +     2833500 ;; 馬には乗って見よ人には添うて見よ
        )
       (l k)
     (niha1 (search "には" k))
  
positive.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))))
  
negative.code:                                            (:= 'sp.tag "pos")
                                             (:= 'sp.text "exp")
                                             (:like 'kt.text "%は"))))
  
  
  (:select 'kt.seq 'kt.text :from (:as 'kanji-text 'kt) (:as 'sense-prop 'sp)
                                :where (:and (:= 'kt.seq 'sp.seq)
                                             (:= 'sp.tag "pos")
                                             (:= 'sp.text "exp")
                                             (:like 'kt.text "%は%")))
  |#
  
  ;; TODO pos=int, pos=adv
  