(use spiffy spiffy-uri-match intarweb  uri-match uri-common)

(define routes
  `(((/ "")
     (GET ,(lambda (c) (send-status 200 "FOO"))))))

(vhost-map `((".*" . ,(uri-match/spiffy routes))))

(parameterize ((debug-log (current-output-port)))
  (start-server ))