: main ( s -- )
	pop
	loc @ exits dup not if
		pop exit
	then
	begin dup while
	dup "D" flag? not if
		dup name dup ";" instr dup if
			1 - strcut pop
		else
			pop
		then
		"] " strcat "[" swap strcat
		over getlink if
			over getlink "_exitdesc" getpropstr dup not if
				pop
				over getlink name
			then
		else
			"**UNLINKED**"
		then
		strcat me @ swap notify
	then
	next
	loop
	pop
;