anchor.diff:  (def-easy-hint 2826689 "東 へ 東 へ")
   (def-easy-hint 2831475 "脇 へ それる")
   (def-easy-hint 2219570 "元 へ")
  +(def-easy-hint 2017030 "次 から 次 へ と")
  +(def-easy-hint 2098540 "中 へ 中 へ")
  +(def-easy-hint 2102190 "上 を 下 へ の 大騒ぎ")
   
   ;; unsorted
   
  
positive.code: 
  (defparameter *hints-checked*
    (mapcar 'car
            '((1186700 "化けの皮をはぐ") (1221790 "気はくがない") (1236510 "強盗にはいる") (1252080 "はかり知れない")
              (1259320 "見えをはる") (1259320 "見栄をはる") (1324680 "弱音をはく") (1327220 "手にはいる")
              (1348240 "小耳にはさむ") (1370020 "はなはだ以て") (1483810 "皮をはぐ") (1531720 "名前をはせる")
              (1535270 "目をはなす") (1540770 "憂さをはらしに") (1632820 "意地をはる") (1636580 "型にはめる")
  
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 "ヘブル人 へ の 手紙")
  