1 #!/bin/rc
2 
3 sed '
4 	s/[ 	]+$//
5 	/	/!d
6 	s/\\N''349''//g
7 	s/''//g
8 	s/	-/	/
9 	s/-$//
10 	/\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; }
11 	/\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; }
12 ' $1 |
13 sed '
14 	/\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; }
15 	/\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; }
16 ' |
17 sed '/ß/{; p; s/ß/ss/g; }' |
18 awk '
19 BEGIN	{ FS = "	|, " }
20 	{ for(i=2; i<=NF; i++)print $i "	" $1 }
21 ' |
22 tr A-Z a-z |
23 sort -u -t'	' +0f -1 +0 -1 +1n -2