src/cmd/dict/egfix2

#!/bin/rc

awk '
BEGIN	{ FS = "	|, " }
	{ for(i=2; i<=NF; i++)print $i "	" $1 }
' $1 |
tr A-Z a-z |
sort -u -t'	' +0f -1 +0 -1 +1n -2