@prog with.muf
1 999 d
1 i
: say me @ swap notify ;
: private? "private" getpropstr ;
: maybe-print
	over over dbcmp if exit then
	dup player? not if exit then
	dup dup "d" flag? swap private? or me @ wizard? not and if exit then
	dup awake? over "u" flag? not me @ wizard? or and if " " else "*" then
	over me @ unparse_object strcat say
;
: main
	dup not if exit then
	.pmatch dup ok? not if pop me @ "No such player." notify exit then
	dup me @ unparse_object " is in " strcat
	me @ wizard? if 0 else over dup private? swap location private? or then
	if
		"a private location." strcat say pop exit
	then
	over location me @ unparse_object strcat " along with:" strcat say
	"=============================" say
	dup location contents
	begin dup while maybe-print next loop
	pop pop
	"***End of List***" say
;
.
c
q