#lang scheme/base (require (planet "mail-parse.ss" ("mburns" "mail-parse.plt" 1 0))) (require scheme/pretty) (pretty-print (parse-emails))