anchor.diff:    (:space ha2)
     (:mod ha2)
     (:space (1+ ha2)))
  +
  +(def-simple-hint
  +    (2419720 ;; 聞くは一時の恥聞かぬは末代の恥
  +     2419910 ;; 問うは一旦の恥問わぬは末代の恥
  +     )
  +    (l k)
  +  (ha1 (search "は" k))
  +  (nuha (search "ぬは" k :from-end t))
  +  (:space ha1)
  +  (:mod ha1)
  +  (:space (1+ ha1))
  +  (:space (1+ nuha))
  +  (:mod (1+ nuha))
  +  (:space (+ 2 nuha)))
   
   (def-simple-hint
       (2153170 ;; めにはめをはにははを
  
positive.code:      2740880 ;; なくことじとうにはかてない
       2416860 ;; よるとしなみにはかてない
       2156910 ;; ひとのくちにはとがたてられない
       )
      (l k)
    (niha (search "には" k :from-end t))
  
negative.code:   (:space (+ 2 niha2))
    (:space (1+ yo1)))
  
  (def-simple-hint
      (1008660 ;; 隣の芝生は青い
       1204760 ;; 蛙の子は蛙
       2113380 ;; 金は天下の回り物
       2141020 ;; 秋の日は釣瓶落とし
       2144050 ;; 秋の鹿は笛に寄る
       2152870 ;; 柳の下にいつも泥鰌はおらぬ
       2152930 ;; 一年の計は元旦にあり
       2158240 ;; 若い時の苦労は買うてもせよ
       2202070 ;; 勝負は時の運
       2227110 ;; カエサルのものはカエサルに
       2417800 ;; 蛇の道は蛇
       2418170 ;; 親の光は七光り
       2420070 ;; 旅の恥は掻き捨て
       2420100 ;; 隣の花は赤い
       2582990 ;; 狐の子は頬白
       2697510 ;; 君父の讐は倶に天を戴かず
       2827732 ;; 若い時の苦労は買ってもせ
       )
      (l k)
    (no (search "の" k))
    (ha (search "は" k :from-end t))
    (:space no)
    (:space (1+ no))
    (:space ha)
    (:mod ha)
    (:space (1+ ha)))
  
  (def-simple-hint
      (1487700 ;; 必要は発明の母
       1320150 ;; 失敗は成功のもと
       2081270 ;; 教うるは学ぶの半ばなり
       2126750 ;; 悪妻は百年の不作
       2141010 ;; 逢うは別れの始め
       2144040 ;; 商いは牛のよだれ
       2152780 ;; 苦は楽の種
       2211780 ;; 情けは人の為ならず
       2416720 ;; 嘘つきは泥棒の始まり
       2416970 ;; 教うるは学ぶの半ば
       2417060 ;; 空腹は最上のソースである
       2417350 ;; 口は禍の元
       2417610 ;; 子は三界の首枷
       2417810 ;; 弱き者よ汝の名は女也
       2418340 ;; 人間は万物の霊長
       2418470 ;; 据え膳食わぬは男の恥
       2418540 ;; 正直は一生の宝
       2418590 ;; 生兵法は大怪我のもと
       2419020 ;; 朝起きは三文の徳
       2420140 ;; 恋は思案の外
       2550210 ;; 幸運の女神は前髪しかない
       2591070 ;; 火事と喧嘩は江戸の華
       2716860 ;; そうはイカの金玉
       2796370 ;; 禍福は糾える縄のごとし
       )
      (l k)
    (no (search "の" k :from-end t))
    (ha (search "は" k))
    (:space no)
    (:space (1+ no))
    (:space ha)
    (:mod ha)
    (:space (1+ ha)))
  
  (def-simple-hint
      (1213500 ;; 甘言は偶人を喜ばす
       1470130 ;; 能ある鷹は爪を隠す
       1929200 ;; 悪貨は良貨を駆逐する
       2077530 ;; 類は友を呼ぶ
       2079030 ;; 大は小を兼ねる
       2089460 ;; 鳴く猫は鼠を捕らぬ
       2102600 ;; おぼれる者はわらをもつかむ
       2168340 ;; 天は自ら助くる者を助く
       2416900 ;; 急いては事を仕損ずる
       2417110 ;; 芸は身を助く
       2419100 ;; 天は二物を与えず
       2419810 ;; 名は体を表す
       2520680 ;; 義を見てせざるは勇なきなり
       2627320 ;; 急いては事を仕損じる
       2686140 ;; 大人は赤子の心を失わず
       )
      (l k)
    (ha (search "は" k))
    (wo (search "を" k :from-end t))
    (:space ha)
    (:mod ha)
    (:space (1+ ha))
    (:space wo)
    (:space (1+ wo)))
  
  (def-simple-hint
      (2095170 ;; 天才と狂人は紙一重
       2237240 ;; 女房と畳は新しい方がいい
       )
      (l k)
    (to (search "と" k))
    (ha (search "は" k :from-end t))
    (:space to)
    (:space (1+ to))
    (:space ha)
    (:mod ha)
    (:space (1+ ha)))
  
  (def-simple-hint
      (2124980 ;; そうは問屋が卸さない
       2395080 ;; すぎたるはおよばざるがごとし
       2395090 ;; すぎたるはなおおよばざるがごとし
       2417400 ;; 慌てる乞食はもらいが少ない
       2419860 ;; 明日は明日の風が吹く
       )
      (l k)
    (ha (search "は" k))
    (ga (search "が" k :from-end t))
    (:space ha)
    (:mod ha)
    (:space (1+ ha))
    (:space ga)
    (:space (1+ ga)))
  
  (def-simple-hint
      (2138600 ;; 百聞は一見にしかず
       2153120 ;; 良薬は口に苦し
       2153130 ;; 目は口ほどに物を言う
       2168390 ;; 鉄は熱いうちに打て
       2171910 ;; 去る者は日々に疎し
       2416560 ;; ローマは一日にして成らず
       2416730 ;; 運は天に在り
       2416800 ;; 火のないところに煙は立たない
       2417160 ;; 健全なる精神は健全なる身体に宿る
       2417390 ;; 孝行をしたい時分に親は無し
       2418120 ;; 新しい酒は古い革袋に入れる
       2418130 ;; 深い川は静かに流れる
       2418450 ;; 水は低きに流る
       2418750 ;; すべての道はローマに通ず
       2419080 ;; 鉄は熱いうちに鍛えよ
       2420150 ;; 老いては子に従え
       2566010 ;; 秋茄子は嫁に食わすな
       )
      (l k)
    (ha (search "は" k))
    (ni (search "に" k :from-end t))
    (:space ha)
    (:mod ha)
    (:space (1+ ha))
    (:space ni)
    (:space (1+ ni)))
  
  (def-simple-hint
      (2418150 ;; 親に似ぬ子は鬼子
       2418640 ;; 静かに流れる川は深い
       2419940 ;; 柳の下に何時も泥鰌は居ない
       )
      (l k)
    (ha (search "は" k :from-end t))
    (ni (search "に" k))
    (:space ha)
    (:mod ha)
    (:space (1+ ha))
    (:space ni)
    (:space (1+ ni)))
  