#!/dis/sh

load std regex echo

for f in `{echo * | sort} {
	and {~ $f INDEX} {raise continue}
	c := ()
	ws := ${re sg '0intro' 'intro' $f}

	getlines {
		(s n rest) := ${split '	 ' $line}
		and {~ $s .SH} {
			and {~ $n NAME} {c = 1; raise continue}
			or {no $c} {raise break}
		}		
		and {no $c} {raise continue}
		ws = $ws $s $n $rest
	} < $f

	ws = `{echo ${re sg '( |\\)-.*' '' $"ws} | tr A-Z a-z | tr -dc 'a-z0-9/~!. -' | sort}
	for w in $ws {echo $w $f}
} | uniq