anchor.diff:      (ps:chain context (query-selector selector)))
     (ps:chain (qs document (ps:lisp (format nil "[next-identifier=\"~a\"]" next-identifier))) (click)))
   
  -(defun remove-element-hints ()
  -  (%remove-element-hints
  -   :buffer (callback-buffer (current-minibuffer))))
  -
   (defmacro query-hints (prompt (symbol) &body body)
     `(with-result* ((elements-json (add-element-hints))
                     (,symbol (read-from-minibuffer
  
positive.code:                              :history nil
                               :completion-function (hint-completion-filter
                                                     (elements-from-json elements-json))
                               :cleanup-function #'remove-element-hints))))
       ,@body))
  
  (defun hint-completion-filter (hints)
  
negative.code:                          (rem n 26)))) ""))
    (hints-add (qsa document (list "a" "button"))))
  
  (define-parenscript remove-element-hints ()
    (defun hints-remove-all ()
      "Removes all the elements"
      (ps:dolist (element (qsa document ".next-hint"))
  