anchor.diff:  
   (defparameter *hints-checked*
     (mapcar 'car
  -          '((1186700 "化けの皮をはぐ") (1221790 "気はくがない") (1236510 "強盗にはいる") (1252080 "はかり知れない")
  +          '(
  +            ;; は
  +            (1186700 "化けの皮をはぐ") (1221790 "気はくがない") (1236510 "強盗にはいる") (1252080 "はかり知れない")
               (1259320 "見えをはる") (1259320 "見栄をはる") (1324680 "弱音をはく") (1327220 "手にはいる")
               (1348240 "小耳にはさむ") (1370020 "はなはだ以て") (1483810 "皮をはぐ") (1531720 "名前をはせる")
               (1535270 "目をはなす") (1540770 "憂さをはらしに") (1632820 "意地をはる") (1636580 "型にはめる")
  
positive.code:             (2833092 "梅雨のはしり") (2833874 "耳にはさむ") (2834024 "はなも引っかけない")
              (2835778 "今はやり") (2836685 "はたから見る") (2836884 "下駄をはかせる") (2837561 "二足のわらじをはく")
              (2837561 "二足の草鞋をはく") (2837752 "肩肘をはる") (2837752 "肩ひじをはる") (2839604 "音程がはずれる")
              (2841916 "はたきを掛ける"))))
  
  #|
  
  
negative.code: 
  ;; へ
  
  #|
  (query (:select 'kt.seq 'kt.text :from (:as 'kanji-text 'kt) (:as 'sense-prop 'sp)
                                :where (:and (:= 'kt.seq 'sp.seq)
                                             (:= 'sp.tag "pos")
                                             (:or (:= 'sp.text "exp") (:= 'sp.text "int"))
                                             (:like 'kt.text "%へ%")
                                             (:not (:in 'kt.seq (:set (union (alexandria:hash-table-keys *hint-map*)
                                                                             *hints-checked*)))))))
  |#
  
  (def-easy-hint 2204530 "ヘブライ人 へ の 手紙")
  (def-easy-hint 2813120 "ヘブル人 へ の 手紙")
  