(use awful)

(enable-sxml #t)

(define-page (main-page-path)
  (lambda ()
    (with-request-variables ((key as-list))
      `((form (@ (method get))
              (input (@ (type text) (name key))))
        (pre ,(with-output-to-string (cut write key)))))))

;; $ lynx -dump 'http://localhost:8080/?key=a&key=b'                            
;;   ____________________
;; ("a" "b")