(require (lib "ssax.ss" "ssax"))
(require (lib "sxml-to-markup.ss" "sxml"))

(define my-sentence
  (ssax:xml->sxml
   (open-input-file "sentence.xml") '()))

(define my-lamp
  (ssax:xml->sxml
   (open-input-file "lamp.xml") '()))
  
(begin
  (SXML->HTML (cadr my-sentence))
  (newline)
  (SXML->HTML (cadr my-lamp))
  (newline))