; need to escape more?  =?

(def pr-escaped (x)
  (each c x 
    (pr (case c #\<  "<"  
                #\>  ">"  
                #\"  """  
                #\&  "&"
                c))))

From html.arc ©