(use awful)

(enable-sxml #t)

(define (foo)
  #<#EOF
this is a text produced by foo
EOF
)

(define-page (main-page-path)
  (lambda ()
    (list #<#EOF
This is a "text".  And #(foo).
EOF
)))