(define greetings (map (lambda (x) (string-append x "_greeting.txt")) (map integer->string (iota 10)))) (define (select-greeting) (let* ((seconds (date-second (current-date))) (index (modulo seconds 10))) (call-with-input-file (list-ref greetings index) (lambda (port) (read-string port))))) (define-service (greeting-svc) (select-greeting)) (let ((the-greeting (

"Mouse over here")) (svc (service () (select-greeting)))) ( ( (

"CODE") (

 (call-with-input-file "Hello.hop" 
		(lambda (i) (html-string-encode (read-string i)))))
       (
)
       ( "OUTPUT")
       ( :onmouseover ~(with-hop ($greeting-svc) 
				      (lambda (value) (set! $the-greeting.innerHTML value)))
	    the-greeting))))

"CODE") ( (call-with-input-file "Hello.hop" (lambda (i) (html-string-encode (read-string i))))) () ( "OUTPUT") ( :onmouseover ~(with-hop ($greeting-svc) (lambda (value) (set! $the-greeting.innerHTML value))) the-greeting))))

"OUTPUT") ( :onmouseover ~(with-hop ($greeting-svc) (lambda (value) (set! $the-greeting.innerHTML value))) the-greeting))))

"CODE") (
(call-with-input-file "Hello.hop" (lambda (i) (html-string-encode (read-string i))))) (
) (
"OUTPUT") (
:onmouseover ~(with-hop ($greeting-svc) (lambda (value) (set! $the-greeting.innerHTML value))) the-greeting))))

"OUTPUT") (
:onmouseover ~(with-hop ($greeting-svc) (lambda (value) (set! $the-greeting.innerHTML value))) the-greeting))))