@prog tess-put.muf
1 999 d
1 i
: say me @ swap notify ;
: matchobj
	match
	dup thing? not if pop #-1 exit then
	dup "_tess" prop-exists? not if pop #-1 exit then
;
: main
	dup " in " instr dup if
		1 - strcut 4 strcut swap pop
	else
		""
	then
	swap matchobj
	dup not if
		pop pop "
;
.
c
q