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