@prog tess-drop.muf
1 999 d
1 i
: say me @ swap notify ;
: main
	me @ swap rmatch
	dup thing? not if
		pop "That object is not here." say exit
	then
	loc @ moveto "OK." say
;
.
c
q