@prog list-desc.muf
1 9999 d
1 i
: say me @ swap notify ;
: break-say
	" " explode "" begin over 0 > while
		swap 1 - swap rot
		" " swap strcat over strlen over strlen + 78 > if
			swap 1 strcut say pop
		else
			strcat
		then
	loop
	1 strcut say pop pop
;
: main
	dup not if pop prog "_def-prefix" getpropstr then
	1 begin over over intostr strcat trigger @ swap getpropstr dup while
		1 strcut over "@" strcmp if
			strcat break-say
		else
			dup atoi dup intostr 3 pick over strlen strcut
			rot rot strcmp if
				pop pop strcat break-say
			else
				dup " " 1 strncmp not if 1 strcut swap pop then
				swap dbref call pop pop
			then
		then
		1 +
	loop
	pop pop pop
;
.
c
q