src/make-contractions.lst

   1 #!/bin/sh
   2
   3 cat working/words.`src/get-level max`                 \
   4   | grep "'" | grep -v "'s$" | grep -v "^[A-Z]'[A-Z]" \
   5   | comm -23 - r/special/not-upper                    \
   6   | comm -23 - working/proper-names.lst               \
   7   | comm -23 - working/abbreviations.lst              \
   8   > working/contractions.lst
   9
  10