(define writeln ;; This procedure writes multiple items one a line, (lambda args ;; and then goes to a new line. (for-each display args) ;; See Springer and Friedman, page 199, for details. (newline) )) ;; cgi program to write a VERY simple html page for the World Wide Web (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 "") (newline) (exit)