: pstackitem (item -- )
	dup int? if
		intostr me @ swap notify
		exit
	then
	dup dbref? if
		dup
		name " (#" strcat
		swap
		int intostr strcat ")" strcat
		me @ swap notify
		exit
	then
	dup string? if
		"\"" swap strcat "\"" strcat me @ swap notify
		exit
	then
	dup var? if
		pop me @ "<var>" notify
		exit
	then
	pop me @ "<strange type>" notify
;
: pstack
	depth dup 1 swap 1 for
		over swap - 2 + pick
		pstackitem
	loop
	pop
;