Welcome to the CHICKEN Scheme pasting service

;; page.sxml
`(p "hello, " ,name "!")

;; test.scm
(use awful)
(enable-sxml #t)

(define-syntax render
  (syntax-rules ()
    ((_ file)
     (include file))))

(define-page "test1"
  (lambda ()
    (let ((name "Chicken"))
     (render "page.sxml"))))

(define-page "test2"
  (lambda ()
    (with-request-variables (name)
			    (render "page.sxml"))))

;; http://localhost:8080/test1
;; => hello, Chicken!
;; http://localhost:8080/test2
;; => hello, ! 
;; http://localhost:8080/test2?name=awful
;; => hello, awful!