(define (parse-shipping-notification-block block)
    (let*-values (((h t)
                   (span (match-lambda
                            ["" #f] ["\n" #f]
                            [_ #t])
                         block)))
                 (list h 
                       (parse-shipping-notification-block (cdr t)))))