(use spiffy openssl)

(define port 8080)

(define stderr (current-error-port))
(debug-log stderr)
(error-log stderr)

(let ((listener (ssl-listen port)))
      (ssl-load-certificate-chain! listener "ssl-cert-snakeoil.pem")
      (ssl-load-private-key! listener "ssl-cert-snakeoil.key")
      (accept-loop listener ssl-accept))