@prog air-chown.muf
1 999 d
1 i
: top #17719 ;
: parent #17780 ;
: main
	.pmatch+
	dup player? not if pop me @ "That's no player!" notify exit then
	0 parent contents begin dup while
		dup top dbcmp not if swap 1 + over then
		next
	loop
	pop
	dup 2 + pick
	begin over 0 > while
		( ... room N owner )
		swap 1 - swap rot
		( ... N owner room )
		dup 3 pick chown
		exits
		begin dup while
			( ... N owner exit )
			dup 3 pick chown
			next
		loop
		pop
	loop
	pop
	pop
	me @ "Done." notify
;
.
c
q