anchor.diff:                (replace [text](?<=.)</?code>(?=.)[/text] new-text (HashTable {`}) 0)
                 (replace {\*} new-text (HashTable {*}) 0)
                 (replace {_} new-text (HashTable {_} ) 0))
  -              ; 'text
  -              (if  within-tag-attributes
  -                   (set 'new-text (last pair))
  -                   (set 'new-text (encode-backslash-escapes (last pair)))))
  +             ; 'text
  +             (if  within-tag-attributes
  +                  (set 'new-text (last pair))
  +                  (set 'new-text (encode-backslash-escapes (last pair)))))
           (setf (temp $idx) (list (first pair) new-text)))
     ; return as text
     (join (map last temp))))
  
positive.code:    (println (markdown (join *stdin* "\n")))
     (exit))
  [/text]
  ; eof
negative.code: 
  (define (images txt)
   (let ((alt-text {})
         (url {})
         (title {})
         (ref-regex    {(!\[(.*?)\][ ]?(?:\n[ ]*)?\[(.*?)\])})
         (inline-regex {(!\[(.*?)\]\([ \t]*<?(\S+?)>?[ \t]*((['"])(.*?)\5[ \t]*)?\))})
  