(define local-part                      ; word *("." word)
  (sequence* ((head (as-string word))
              (tail (zero-or-more
                     (preceded-by (char-seq ".")
                                  (as-string word)))))
    (result (cons head tail))))