@prog get-email.muf
1 999 d
1 i
: say me @ swap notify ;
: dbref-name
	dup name "(#" strcat over int intostr strcat
	swap flagstr strcat ")" strcat
;
: main
	.pmatch+
	dup player? not if pop "That's not a player!" say exit then
	trigger @ "holder" getpropstr atoi dbref over int intostr
	over over prop-exists? if
		getpropstr swap dbref-name ": " strcat swap strcat
	else
		pop pop dbref-name " is not listed." strcat
	then
	say
;
.
c
q