@prog orphan-room.muf
1 999 d
1 i
: say me @ swap notify ;
: mpop begin dup 0 > while 1 - swap pop loop pop ;
: main
	atoi db_top 1 - 1 for
		dbref
		dup room? not if pop continue then
		dup backlinks dup if mpop 1 then if pop continue then
		dup exits if pop continue then
		me @ unparse_object say
	loop
;
.
c
q