@prog tess-inv.muf
1 999 d
1 i
: say me @ swap notify ;
: obj-visible? "_tess" prop-exists? ;
: cat-or-say (sofar str maxlen -- sofar)
	over strlen 4 pick strlen + < if
		swap say
	else
		strcat
	then
;
: main
	"You are carrying:" say
	"" me @ contents begin dup while
		dup obj-visible? if
			swap over name "  " swap "." strcat strcat
			78 cat-or-say swap
		then
		next
	loop
	pop
	dup not if pop "  nothing." then say
;
.
c
q