(require (lib "xml.ss" "xml"))
(write-xml/content
 (xexpr->xml
  '(html (head "head") 
         (body (p "Vor dem Leerzeichen" nbsp "danach")
               (p "Ein Pfund:" 163)))))