Back to notes Keyboard shortcut: 'u' 

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