;; Parse emails
#lang scheme
(require planet/util)
(current-directory)
(display (make-planet-archive (current-directory)))(newline)