(def eschtml (str)
  (tostring 
    (each c str
      (pr (case c #\<  "<" 
                  #\>  ">"
                  #\"  """
                  #\'  "'"
                  #\&  "&"
                        c)))))

From html.arc ©