anchor.diff:          (+ (string-generate (floor (- (/ n 26) 1)))
              (code-char (+ 65
                            (rem n 26)))) ""))
  -  (hints-add (qsa document (list "a"))))
  +  (hints-add (qsa document (list "a" "button"))))
   
   (define-parenscript %remove-element-hints ()
     (defun hints-remove-all ()
  
positive.code: 
  (defun elements-from-json (elements-json)
    (loop for element in (cl-json:decode-json-from-string elements-json)
          collect (make-instance 'link-hint
                                 :hint (cdr (assoc :hint element))
                                 :url (cdr (assoc :href element)))))
  
  (defclass hint ()
    ((hint :accessor hint :initarg :hint)
  
negative.code:     (ps:let ((hint-element (hint-create-element element hint)))
        (ps:chain document body (append-child hint-element))))
    (defun object-create (element hint)
      (cond ((equal "A" (ps:@ element tag-name))
             (ps:create "type" "link" "hint" hint "href" (ps:@ element href)))
            ((equal "BUTTON" (ps:@ element tag-name))
             (ps:create "type" "button" "hint" hint))))
    (defun hints-add (elements)
      "Adds hints on elements"
      (ps:let* ((elements-length (length elements))
  