@prog tess-get.muf
1 999 d
1 i
: say me @ swap notify ;
: main
	match
	dup thing? over "_tess" prop-exists? and not if
		pop "That object is not here." say exit
	then
	me @ over passlock? not if
		fail dup not if pop "Can't get that." then say exit
	then
	me @ moveto "OK." say
;
.
c
q