anchor.diff:         ,@body)
        (setf (gethash ,seq *split-map*) ',name)))
   
  -(defmacro def-simple-split (name seq score (&optional length-var text-var) &body parts-def)
  +(defmacro def-simple-split (name seq score (&optional length-var text-var reading-var) &body parts-def)
     "each part is (seq length-form)"
  -  (alexandria:with-gensyms (reading-var offset parts)
  +  (alexandria:with-gensyms (offset parts)
  +    (unless reading-var (setf reading-var (gensym "RV")))
       (unless length-var (setf length-var (gensym "LV")))
       (unless text-var (setf text-var (gensym "TV")))
       `(defsplit ,name ,seq (,reading-var)
  
positive.code: (def-simple-split split-janaika 2819990 20 (len) ;; じゃないか
    (("じゃない" 2089020) 4)
    (2028970 1))
  
negative.code:   (("無く" 1529520) 2)
    (1375610 (- len 2) t))
  
  (def-simple-split split-nakunaru2 1518540 10 (len txt r) ;; 亡くなる
    (:test (eql (word-type r) :kana))
    (("亡く" 1518450) 2)
    (1375610 (- len 2) t))
  
  