@prog snark-desc.muf
1 999 d
1 i
: say me @ swap notify ;
: print-with-breaks
	" " explode
	begin
		dup 1 >
	while
		3 pick strlen 3 pick strlen 1 + + 78 > if
			1 - swap say
		else
			1 - swap " " strcat rot strcat swap
		then
	loop
	pop say
;
: don't-list?
	dup "d" flag? if pop 1 exit then
	dup "dark" getpropstr if pop 1 exit then
	dup "long-dark" getpropstr if pop 1 exit then
	pop 0
;
: first-name
	name ";" explode
	dup 2 < if pop exit then
	1 swap 1 - 1 for pop swap pop loop
;
: get-desc
	dup desc dup not if
		pop getlink dup if name else pop "[Nothing yet]" then
	else
		swap pop
	then
;
: main
	trigger @ exits
	begin dup while
		dup don't-list? not if
			dup first-name toupper ": " strcat
			over get-desc strcat
			print-with-breaks
		then
		next
	loop
	pop
;
.
c
q