;Practice Quiz 1
(servlet (email name qty)
 (case email
   ((#null) {
     <form method="get" action="pquiz1.servlet"
       style="font: bold 40pt monospace">
      email:<input type=text name="email"><br>
      name:<input type=text name="name"><br>
      qty:<input type=text name="qty"><br>
      <input type="submit" value="Place order">
     </form>})

   (else
       (send-mail request "tjhickey@brandeis.edu" email "pquiz1"
          {[email] visited the pquiz1 servlet at [(Date.)]})

       {<div style="font:bold 40pt monospace">
       Thanks [name] for ordering [qty] widgets,
        at $3.75 each, with $7.50 shipping fee.
        Please send us a check for [
        (+ 7.5 (* qty 3.75))] American dollars
       </div>
       }
    )
  )
)