(extend "base.sfx"
        (current-module)
        `((header ,title)
          (intro `(div (p "This is a little presentation of sfx template language")
                       (p "Here is an example of sxml code generated with scheme code")
                       (ul ,(map (lambda (person) `(li ,(person-name person)))
                                 persons))))))