anchor.diff:  
                (when (or (null next-obj)
                          (string/= (name-of next-obj) (name-of obj)))
  -               (cond
  -                 ((= counter 1)
  -                  (act ch :item obj :target-item container
  -                       :all-emit "$n put$% $p into $P."))
  -                 ((plusp counter)
  -                  (act ch :item obj
  -                       :target-item container
  -                       :all-emit (format nil "$n put$% $p into $P. (x~d)" counter))))
  +               (act ch :item obj
  +                    :target-item container
  +                    :all-emit (format nil "$n put$% $p into $P.~[~;~:;~:* (x~d)~]" counter))
                  (setf counter 0)))))
          (when (is-obj-kind container +item-pipe+)
            (loop while (contains-of container) do
  
positive.code:                 (setf sigil-found t)))
               (when (or (null next-obj)
                         (string/= (name-of next-obj) (name-of obj)))
                 (cond
                   ((= counter 1)
                    (act ch :item obj :all-emit "$n get$% $p."))
                   ((plusp counter)
                    (act ch :item obj
                         :all-emit (format nil "$n get$% $p. (x~d)" counter))))
                 (setf counter 0))))))
        ((eql mode :find-indiv)
         (multiple-value-bind (ignore name)
  
negative.code:                 (setf sigil-found t)))
               (when (or (null next-obj)
                         (string/= (name-of next-obj) (name-of obj)))
                 (act ch :item obj
                      :target-item container
                      :all-emit (format nil "$n get$% $p from $P.~[~;~:;~:* (x~d)~]" counter))
                 (setf counter 0))))))
        ((eql mode :find-indiv)
         (multiple-value-bind (ignore name)
  