( ( (

"CODE") (

 (call-with-input-file "Escape.hop" 
	   (lambda (i) (html-string-encode (read-string i)))))
  (
)
  ( "OUTPUT")
  (let ((foo "bar")) 
    ( :onclick ~(alert $foo) "CLICK ME")))))

"CODE") ( (call-with-input-file "Escape.hop" (lambda (i) (html-string-encode (read-string i))))) () ( "OUTPUT") (let ((foo "bar")) ( :onclick ~(alert $foo) "CLICK ME")))))

"OUTPUT") (let ((foo "bar")) ( :onclick ~(alert $foo) "CLICK ME")))))

"CODE") (
(call-with-input-file "Escape.hop" (lambda (i) (html-string-encode (read-string i))))) (
) (
"OUTPUT") (let ((foo "bar")) (
:onclick ~(alert $foo) "CLICK ME")))))

"OUTPUT") (let ((foo "bar")) (
:onclick ~(alert $foo) "CLICK ME")))))