#!/usr/bin/csi -script
(use posix html-tags)
(enable-ajax #t)
(enable-javascript-compression #f)
(define-page (main-page-path)
(lambda ()
(add-javascript "/* Here's some javascript comment that should "
"be stripped from the page. */")
(ajax "/click" 'clickme '(click dblclick)
(lambda () (->string (current-seconds)))
target: "clicked")
(++ ( href: "#" id: "clickme" "Click me")
( id: "clicked"))))