:-  %say
|=  {^ {mel+cord $~} $~}
=+  adr=(star ;~(less (mask "\"\\()[],:;<>@") prn))
=+  dom=[;~(plug dlab dot (most dot dlab))]:urlp
=+  ~|(bad-email#mel (rash mel ;~((glue pat) adr dom)))
helm-send-ask#mel