@prog sweep.muf
1 999 d
1 i
( sweep for bugs... )
: say me @ swap notify ;
: dbref-name dup name " (#" strcat over int intostr strcat swap flagstr strcat ")" strcat ;
: chkexit
	dup "h" flag? not if pop exit then
	dup location dbref-name ", " strcat over dbref-name strcat
	over getlink not if " [unlinked]" strcat then
	", " strcat swap owner dbref-name strcat
	say
;
: exits+ dup room? over player? or over thing? or if exits else pop #-1 then ;
: chkexits exits+ begin dup while dup chkexit next loop pop ;
: main
	dup not if pop loc @ else match then
	dup chkexits
	dup contents begin dup while dup chkexits next loop pop
	location begin dup while dup chkexits location loop pop
	"Done." say
;
.
c
q