anchor.diff:              (let ((dot (position #\. text)))
                 (if dot
                     (setf reading (subseq text 0 dot)
  -                        ofuri (subseq text (1+ dot)))
  +                        okuri (subseq text (1+ dot)))
                     (setf reading text)))
               (let ((old-reading (gethash reading readings)))
                 (cond (old-reading
                        (unless (equal (getf old-reading :type) type)
                          (setf (getf old-reading :type) "ja_onkun"))
  -                     (when ofuri
  -                       (push ofuri (getf old-reading :ofuri)))
  +                     (when okuri
  +                       (push okuri (getf old-reading :okuri)))
                        (when suffixp (setf (getf old-reading :suffixp) t))
                        (when prefixp (setf (getf old-reading :prefixp) t)))
                       (t
                        (setf (gethash reading readings)
  -                           `(:ofuri ,(if ofuri (list ofuri) nil) :type ,type :suffixp ,suffixp :prefixp ,prefixp)))))))))
  +                           `(:okuri ,(if okuri (list okuri) nil) :type ,type :suffixp ,suffixp :prefixp ,prefixp)))))))))
       (maphash
        (lambda (text rinfo)
  -       (let ((ofuri (getf rinfo :ofuri)))
  -         (remf rinfo :ofuri)
  +       (let ((okuri (getf rinfo :okuri)))
  +         (remf rinfo :okuri)
            (let ((robj (apply #'make-dao 'reading :text text :kanji-id kanji-id rinfo)))
              (loop with rid = (id robj) 
  -              for of in ofuri
  -              do (make-dao 'ofurigana :text of :reading-id rid)))))
  +              for of in okuri
  +              do (make-dao 'okurigana :text of :reading-id rid)))))
        readings)))
     
   
  
positive.code:                 ("text" (text reading))
                  ("rtext" (romanize-word (text reading) :method *hepburn-basic* :original-spelling ""))
                  ("type" (reading-type reading))
                  ("ofuri" (query (:select 'text :distinct :from 'ofurigana :where (:= 'reading-id (id reading))) :column))
                  ("sample" (stat-common reading))
                  ("perc" (calculate-perc (stat-common reading) total)))))
        (when (prefixp reading)
  
negative.code: 
  (defun init-tables ()
    (with-connection *connection*
      (let ((tables '(kanji reading okurigana meaning)))
        (loop for table in (reverse tables)
           do (query (:drop-table :if-exists table)))
        (loop for table in tables
  