#lang web-server/insta

(define (start request)
  (show-counter 0))

;; show-counter: number -> doesn't return
(define (show-counter n)
  (send/suspend/dispatch
   (lambda (embed/url)
     (response/xexpr
      `(html (head (title "Counting example"))
             (body 
              (a ((href ,(embed/url 
                          (lambda (request)
                            (show-counter (+ n 1))))))
                 ,(number->string n))))))))