Webアプリケーションへの応用(5)

HTMLへの埋め込み
   (define (lister items)
     (html:ul
       (map html:li (take* items 10))
       (unless (null? (drop* items 10))
         (a/cont (lambda ()
                   (lister (drop* items 10)))
                 "[more items]"))))