@prog fetch.muf
1 999 d
1 i
: say me @ swap notify ;
: main
	trigger @ ".closet" getpropstr atoi
	dup not if
		pop "No closet set" say exit
	then
	dbref
	trigger @ owner over owner over dbcmp swap true-wizard? or not if
		dup ".closet-public" prop-exists? not if
			pop "Permission denied." say exit
		then
	then
	swap rmatch
	dup ok? not if pop "Can't get that" say exit then
	me @ moveto
	"Done." say
;
.
c
q