ref: f88a55e79b5bf656e7f9578d1318a955b9a4963a
dir: /sys/src/cmd/dict/gefix/
#!/bin/rc sed ' s/[ ]+$// / /!d s/\\N''349''//g s/''//g s/ -/ / s/-$// /\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; } /\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; } ' $1 | sed ' /\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; } /\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; } ' | sed '/ß/{; p; s/ß/ss/g; }' | awk ' BEGIN { FS = " |, " } { for(i=2; i<=NF; i++)print $i " " $1 } ' | tr A-Z a-z | sort -u -t' ' +0f -1 +0 -1 +1n -2