SCHEMEON.js : DOM Emulation with SCHEME
(define r (document.getElementById "r")) (define w (document.getElementById "w")) (define in r.value) (set! w.value (string-append in "\n->\n" (->string (eval (read-string in) (interaction-environment))) "\n----\n" w.value)) (set! r.value "") (r.focus)
[r]INPUT
[w]OUTPUT