anchor.diff:                                             (:= '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
  
positive.code:      2719710 ;; フグは食いたし命は惜しし
       2790690 ;; 弓は袋に太刀は鞘
       2828900 ;; 山中の賊を破るは易く心中の賊を破るは難し
       )
      (l k)
    (ha1 (search "は" k))
  
negative.code:   (:mod 1)
    (:space 2))
  
  (def-simple-hint
      (2832044 ;; 目には目を
       )
      (l k)
    (niha (search "には" k :from-end t))
    (:space niha)
    (:mod (1+ niha))
    (:space (+ 2 niha))
    (:space (- l 1)))
  
  ;; は in the middle
  (def-simple-hint
      (2101500 ;; 無い袖は振れぬ
       2118440 ;; なにはなくとも
       2118430 ;; なにはともあれ
       2152710 ;; わたるせけんにおにはない
  