(define (html-protect str) (transliterate (transliterate (transliterate str #\& (character-entity "amp")) #\> (character-entity "gt")) #\< (character-entity "lt")))