#lang racket/base

(require web-server/servlet
         web-server/servlet-env)

(define (add n)
  (add
   (send/suspend/dispatch
    (λ (embed/url)
      (response/xexpr
       `(a ([href ,(embed/url (λ (req)
                                (add1 n)))])
           ,(format "Click: ~a" n)))))))

(define (start req)
  (add 0))

(module+ main
  (serve/servlet start #:stateless? #t))