anchor.diff:            ((equal "BUTTON" (ps:@ element tag-name))
              (ps:create "type" "button" "hint" hint "identifier" hint "body" (ps:@ element inner-H-T-M-L)))
             ((equal "INPUT" (ps:@ element tag-name))
  -           (ps:create "type" "input" "hint" hint "identifier" hint))))
  +           (ps:create "type" "input" "hint" hint "identifier" hint))
  +          ((equal "TEXTAREA" (ps:@ element tag-name))
  +           (ps:create "type" "textarea" "hint" hint "identifier" hint))))
   
     (defun hints-add (elements)
       "Adds hints on elements"
  
positive.code:   (click-button :buffer (current-buffer) :next-identifier (identifier button-hint)))
  
  (defmethod %follow-hint ((input-hint input-hint))
    (focus-input :buffer (current-buffer) :next-identifier (identifier input-hint)))
  
  (defmethod %follow-hint-new-buffer-focus ((link-hint link-hint))
    (let ((new-buffer (make-buffer)))
  
negative.code:     (ps:chain context (query-selector selector)))
    (ps:chain (qs document (ps:lisp (format nil "[next-identifier=\"~a\"]" next-identifier))) (click)))
  
  (define-parenscript focus-element (next-identifier)
    (defun qs (context selector)
      "Alias of document.querySelector"
      (ps:chain context (query-selector selector)))
    (ps:chain (qs document (ps:lisp (format nil "[next-identifier=\"~a\"]" next-identifier))) (focus))
    (ps:chain (qs document (ps:lisp (format nil "[next-identifier=\"~a\"]" next-identifier))) (select)))
  
  (define-parenscript highlight-selected-hint (link-hint scroll)
    (defun qs (context selector)
  