(def serve ((o port 8080))
   (nil! quitsrv*)
   (ensure-dir logdir*)
   (let s (open-socket port)
     (prn "ready to serve port " port) (flushout)
     (= currsock* s)
     (after (while (no quitsrv*)
              (if breaksrv*
                  (handle-request s)
                  (errsafe (handle-request s))))
            (close s)
            (prn "quit server"))))