(use awful srfi-18)

(thread-start! 
 (lambda ()
   (awful-start
    (lambda ()
      (define-page (irregex "/.*")
        (lambda (path)
          (string-append "Requested-path: " path)))))))

(thread-join!
 (thread-start!
  (lambda ()
    (let loop ()
      (thread-sleep! 1)
      (display ".")
      (flush-output)
      (loop)))))