anchor.diff:  (defclass input-hint (hint) ())
   
   (defclass textarea-hint (hint) ())
  +
  +(define-class image-hint (link-hint)
  +  ((alt "" :documentation "Alternative text for the image."))
  +  (:accessor-name-transformer #'class*:name-identity))
   
   (defmethod object-string ((link-hint link-hint))
     (url link-hint))
  
positive.code: (defun elements-from-json (elements-json)
    (loop for element in (cl-json:decode-json-from-string elements-json)
          collect (let ((object-type (cdr (assoc :type element))))
                    (cond ((equal "link" object-type)
                           (make-instance 'link-hint
                                          :hint (cdr (assoc :hint element))
                                          :identifier (cdr (assoc :hint element))
                                          :url (cdr (assoc :href element))
                                          :body (plump:text (plump:parse (cdr (assoc :body element))))))
                          ((equal "button" object-type)
                           (make-instance 'button-hint
                                          :identifier (cdr (assoc :identifier element))
                                          :hint (cdr (assoc :hint element))
                                          :body (plump:text (plump:parse (cdr (assoc :body element))))))
                          ((equal "input" object-type)
                           (make-instance 'input-hint
                                          :identifier (cdr (assoc :identifier element))
                                          :hint (cdr (assoc :hint element))))
                          ((equal "textarea" object-type)
                           (make-instance 'textarea-hint
                                          :identifier (cdr (assoc :identifier element))
                                          :hint (cdr (assoc :hint element))))))))
  
  (define-class hint ()
    ((hint "")
     (identifier "")
     (body ""
           :documentation "The body of the anchor tag."))
    (:accessor-name-transformer #'class*:name-identity))
  
negative.code:                          (rem n 26)))) ""))
  
    (add-stylesheet)
    (hints-add (qsa document (list "a" "button" "input" "textarea" "img"))))
  
  (define-parenscript remove-element-hints ()
    (defun hints-remove-all ()
  