(define-structure surflet surflet-interface
  (open surflets
	xml-i/o
        scheme-with-scsh)

  (begin

    (define filename "band.xml")

    (define (add-tony xexpr)
      `(*TOP*
	(,(car (cdr xexpr)))      ;;da steht die PI drin
	(band
	 ,@(append (cdr (car (cddr xexpr)))
		   '((member
		      (name "Tony Iommi")
		      (instrument "guitar")))))))
    

    (define (update-xml-file filename)
      (write-xml-to-file 
       filename (add-tony (read-xml-from-file filename))))


    (define (main req)
      (update-xml-file filename)
      (send-html/finish
       (cddr (read-xml-from-file filename))))))