(servlet (reset)
 (case reset
  ((#null)  ; do the usual, 
   (let* ((counter-file (servlet-file request "count"))
          (count (read-from-file counter-file 0))
          (newcount (+ 1 count)))
     (write-to-file counter-file newcount)
    
     {You are visitor number [newcount]. <br> Bye!}
   ))

  (else
   (let* ((counter-file (servlet-file request "count"))
          (newcount reset))
     (write-to-file counter-file newcount)
     {File has been reset!}))
))