#!/usr/local/bin/awful                                                                                           
(use srfi-1 html-utils html-tags awful srfi-13 regex)                                                            
(define (underfoo path) (let ((blah (string-match  path)))                                                       
    (if (not blah) #f #t)))                                                                                      
                                                                                                                 
(define-page (regexp "^,*/foo.*")                                                                                
    (lambda (nick)                                                                                               
        (lambda ()                                                                                               
            (html-page (<div> id: anotherdiv (<h1> (string-append "Oh it's you!" nick)))))))                     
                                                                                                                 
                                                                                                                 
(define-page (regexp ".*")                                                                                       
  (lambda ()                                                                                                     
    (html-page (<div> id: "adiv" (<h1> "hallo")                                                                  
        (form                                                                                                    
             `(( "Your nick: " ,(text-input 'nick)))                                                             
             action: "/foo"                                                                                      
             method: "post"                                                                                      
             )))))