") (writeln "title") (writeln "

(define writeln (lambda args (for-each display args) (newline) )) (define your-address (getenv "REMOTE_ADDR")) (define your-port (getenv "REMOTE_PORT")) (define your-browser (getenv "HTTP_USER_AGENT")) (define my-script (getenv "SCRIPT_NAME")) (define my-machine (getenv "SERVER_NAME")) (writeln "Content-type: text/html") (newline) (writeln "") (writeln "") (writeln "") (newline) (writeln "") (writeln "") (writeln "title") (writeln "") (writeln "") (writeln "") (writeln "

" "Welcome to the world of Internet programming!" "

") (writeln "

") (writeln "This page is created by a Scheme program.") (writeln "

") (writeln "

" "The following indicates some things I know about you." "

") (writeln "

") (writeln "The Internet number of your machine is " your-address) (writeln "

") (writeln "Your machine is using port " your-port " for this Web-server interaction") (writeln "

") (writeln "You are running " your-browser " as your Web browser") (writeln "

") (writeln "The name of this script is " my-script) (writeln "

") (writeln "This script is being run by " my-machine) (writeln "

") (writeln "

") ;(writeln "

" ; "Just for fun, here is a more complete list of environmental" ; "variables for this web interaction" ; "

") ;(writeln "

")
;(require (lib "process.ss" "mzlib"))
;(system "/usr/bin/env")
;(process "/usr/bin/env")

;(writeln "

") ;(writeln "

") (writeln "Does this experience make you feel more comfortable about using") (writeln "the World Wide Web?") (writeln "

") (writeln "") (writeln "") (newline) (exit)