(define local-part (sequence                ; word *("." word)
		     word
		     (zero-or-more
		       (sequence
			 (char-seq ".")
			 word))))
-----
#;69> (parse local-part "andyj.pb@ashurst.eu.org")
(())
#<lazy-seq #\a #\n #\d #\y #\j #\. #\p #\b #\@ #\a #\s #\h #\u #\r #\s #\t #\. #\e #\u #\. #\o #\r #\g>
; 2 values