@prog tess-scan.muf
1 999 d
1 i
: say me @ swap notify ;
: main
	0 swap
	loc @ "_stack-push-ok" getpropstr "" strcmp if
		"Stack: stack potential non-zero, pushing allowed." say
		swap pop 1 swap
	then
	dup if match else pop #-1 then
	dup ok? if
		"_stack-desc" getpropstr dup if
			"Stack: " swap strcat say
			pop 1
		else
			pop
		then
	else
		pop
	then
	not if
		"Stack: nothing special to report." say
	then
;
.
c
q