anchor.diff:                     for part in parts
                      unless (zerop pos)
                      collect (list :space pos)
  -                   and if (find part '("は" "へ" "には") :test 'equal) collect (list :mod (+ pos (length part) -1))
  +                   and if (find part '("は" "へ" "には" "とは") :test 'equal)
  +                       collect (list :mod (+ pos (length part) -1))
                      do (incf pos (length part))))
            (reading-var (gensym "RV")))
       (alexandria:with-gensyms (match kr rtext)
  
positive.code:   (:mod ha)
    (:space (1+ ha)))
  
  (def-simple-hint
      (2108440 ;; あやまちてはすなわちあらたむるにはばかることなかれ
       2417420 ;; ふりかかるひのこははらわねばならぬ
       )
      (l k)
    (ha (search "は" k))
    (:space ha)
    (:mod ha)
    (:space (1+ ha)))
  
  
  ;; Easy hints!
  
  ;; は は
  
  
negative.code: 
  ;; は in the middle
  (def-simple-hint
      (1008970 ;; "どうってことはない" "どうってことはない")
       1188440 ;; "何とはなしに" "なんとはなしに")
       1193090 ;; "果報は寝て待て" "かほうはねてまて")
       1394290 ;; "善は急げ" "ぜんはいそげ")
       1855940 ;; "挨拶は抜きで" "あいさつはぬきで")
       1900670 ;; "根はおとなしい" "ねはおとなしい")
       1949380 ;; "無理はない" "むりはない")
       1981600 ;; "一寸先は闇" "いっすんさきはやみ")
       1982230 ;; "其れはそうと" "それはそうと")
       2018320 ;; "無いよりはまし" "ないよりはまし")
       2062980 ;; "ありゃしない" "ありゃしない")
       2078930 ;; "賽は投げられた" "さいはなげられた")
       2089520 ;; "それはどうも" "それはどうも")
       2089620 ;; "それはさておき" "それはさておき")
       2098150 ;; "無くてはならない" "なくてはならない")
       2108910 ;; "かたいことは言いっこなし" "かたいことはいいっこなし")
       2115570 ;; "それはどうかな" "それはどうかな")
       2118120 ;; "何はさておき" "なにはさておき")
       2118430 ;; "何はともあれ" "なにはともあれ")
       2118440 ;; "何は無くとも" "なにはなくとも")
       2134480 ;; "恋は盲目" "こいはもうもく")
       2135530 ;; "ほどの事はない" "ほどのことはない")
       2136710 ;; "と言うことはない" "ということはない")
       2141360 ;; "気は心" "きはこころ")
       2168360 ;; "多芸は無芸" "たげいはむげい")
       2173880 ;; "今は昔" "いまはむかし")
       2174570 ;; "如くは無し" "しくはなし")
       2176450 ;; "今はこれまで" "いまはこれまで")
       2177240 ;; "宝は湧き物" "たからはわきもの")
       2200690 ;; "子は鎹" "こはかすがい")
       2210960 ;; "勝ち目はない" "かちめはない")
       2213470 ;; "それはそれで" "それはそれで")
       2255320 ;; "無くてはいけない" "なくてはいけない")
       2275900 ;; "ものは言いよう" "ものはいいよう")
       2403520 ;; "どうという事はない" "どうということはない")
       2408680 ;; "来る者は拒まず" "くるものはこばまず")
       2416870 ;; "気は持ちよう" "きはもちよう")
       2416930 ;; "去る者は追わず" "さるものはおわず")
       2417040 ;; "金銀は回り持ち" "きんぎんはまわりもち")
       2417150 ;; "血は争えない" "ちはあらそえない")
       2417980 ;; "小事は大事" "しょうじはだいじ")
       2418090 ;; "寝る子は育つ" "ねるこはそだつ")
       2418280 ;; "人は情け" "ひとはなさけ")
       2418800 ;; "その時はその時" "そのときはそのとき")
       2418840 ;; "待つ身は長い" "まつみはながい")
       2418920 ;; "短気は損気" "たんきはそんき")
       2419030 ;; "長所は短所" "ちょうしょはたんしょ")
       2419350 ;; "年は争えない" "としはあらそえない")
       2419390 ;; "馬は馬連れ" "うまはうまづれ")
       2419590 ;; "ものは考えよう" "ものはかんがえよう")
       2419600 ;; "物は使いよう" "ものはつかいよう")
       2419610 ;; "物は試し" "ものはためし")
       2419620 ;; "ものは相談" "ものはそうだん")
       2420180 ;; "餠は餠屋" "もちはもちや")
       2583560 ;; "切っては切れない" "きってはきれない")
       2585230 ;; "事はない" "ことはない")
       2593830 ;; "其れはそうとして" "それはそうとして")
       2600530 ;; "其とはなしに" "それとはなしに")
       2618920 ;; "生き身は死に身" "いきみはしにみ")
       2618990 ;; "無知は幸福" "むちはこうふく")
       2708230 ;; "何のことはない" "なんのことはない")
       2716900 ;; "そうは行かない" "そうはいかない")
       2737650 ;; "油断は禁物" "ゆだんはきんもつ")
       2741810 ;; "いい後は悪い" "いいあとはわるい")
       2744840 ;; "様はない" "ざまはない")
       2747300 ;; "タダ飯はない" "タダめしはない")
       2827424 ;; "気はさらさらない" "きはさらさらない")
       2827754 ;; "男は黙って" "おとこはだまって")
       2831359 ;; "無くてはいけません" "なくてはいけません")
       2833597 ;; "君子は豹変す" "くんしはひょうへんす")
       )
      (l k)
    (ha (search "は" k :from-end t))
  