( who with )
: say me @ swap notify ;
: dbref-name
	dup name
	over "v" flag? me @ wizard? or if
		"(#" strcat over int intostr strcat
		over flagstr strcat ")" strcat
	then
	swap pop
;
: private? "private" getpropstr ;
: maybe-print
	over over dbcmp if exit then
	dup player? not if exit then
	dup "d" flag? me @ wizard? not and if exit then
	dup awake? over "u" flag? not me @ wizard? or and if " " else "*" then
	over dbref-name strcat say
;
: main
	dup not if exit then
	.pmatch dup ok? not if pop me @ "No such player." notify exit then
	dup dbref-name " is in " strcat
	me @ wizard? if 0 else over dup private? swap location private? or then
	if "a private location" else over location dbref-name then strcat
	" along with:" strcat say
	"=============================" say
	dup location contents
	begin dup while maybe-print next loop
	pop pop
	"***End of List***" say
;