anchor.diff:      (:kudasai "please do ...")
       (:yagaru "indicates disdain or contempt")
       (:desu "formal copula")
  +    (:desho "perhaps/don't you think?")
       (:tosuru "to try to .../to be about to...")
       ))
   
  
positive.code: 
          (load-kf :desu (get-kana-form 1628500 "です"))
  
          (load-conjs :tosuru 2136890) ;; とする
  
          ;;(load-abbr :nee "ねぇ")
  
negative.code: (def-simple-suffix suffix-rashii :rashii (:connector "" :score 3) (root)
    (find-word-with-conj-type root 2))
  
  (def-simple-suffix suffix-desu :desu (:connector " " :score 5) (root)
    (and (or (alexandria:ends-with-subseq "ない" root)
             (alexandria:ends-with-subseq "なかった" root))
         (find-word-with-conj-prop root (lambda (cdata)
                                          (conj-neg (conj-data-prop cdata))))))
  
  (def-simple-suffix suffix-desho :desho (:connector " " :score 5) (root)
    (and (alexandria:ends-with-subseq "ない" root)
         (find-word-with-conj-prop root (lambda (cdata)
                                          (conj-neg (conj-data-prop cdata))))))
  
  