anchor.diff:  (: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")
  +                                           (:or (:= 'sp.text "exp") (:= 'sp.text "int"))
                                              (:like 'kt.text "%は%")
                                              (:not (:in 'kt.seq (:set (alexandria:hash-table-keys *hint-map*))))))
   |#
  
positive.code: (def-easy-hint 2841165 "恋 は 闇")
  (def-easy-hint 2841585 "礼 は はずむ")
  (def-easy-hint 2842361 "失敗 は 成功 の 母")
  
  ;; は は
  
  
negative.code: (def-easy-hint 2417830 "酒 は 百薬 の 長")
  (def-easy-hint 2837015 "落ち武者 は 薄 の 穂 に 怖ず")
  (def-easy-hint 2837756 "風邪 は 万病 の 元")
  (def-easy-hint 2842831 "口 は 災い の 門")
  
  ;; は を
  (def-easy-hint 1213500 "甘言 は 偶人 を 喜ばす")
  