;; -*- scheme -*- -p
(:args inner)
($cookies '())
(unless (cookie-ref "session")
	(cookie-set! "session" (symbol->string (gensym)) #:path "/"))
(inner)