anchor.diff:             (%print-gap str)
              (?
                (& (%body? .!) ..!)  (progn
  -                                    (fresh-line str)
  +                                    (& *print-automatic-newline?*
  +                                       (fresh-line str))
                                       (%print-body ..! str info))
                (%rest? .!)          (%print-rest ..! str info)
                (%key? .!)           (progn
  
positive.code:       (%late-print .x. str info)
        (%print-gap str)
        (%late-print (car ..x.) str info)
        (fresh-line str)
        (push ! (print-info-columns info))
        (%print-body (cdr ..x.) str info)
        (pop (print-info-columns info)))))
  
negative.code:   (%with-brackets str info
      (++! (car (print-info-columns info)))
      (%late-print (car .x.) str info)
      (& *print-automatic-newline?*
         (fresh-line str))
      (%print-body (cdr .x.) str info))
      (--! (car (print-info-columns info))))
  
  