Not Found</TT> response.
  </P>

  <P><A href="HttpServerExample.aml">Download full source code</A></P>

<PRE>
val documentRoot = "/tmp/httproot"

val notFoundDocument = "The requested document could not be found\n"

fun documentHandler (request: Http.request) =
    let
	val relFile = Url.toString (Url.setQuery (#uri request, NONE))
	val file = TextIO.openIn (documentRoot ^ relFile)
	val body = TextIO.inputAll file
    in
	TextIO.closeIn file;
	Http.makeResponse
	    {statusCode = 200, contentType = "text/p