#!/bin/bash
#
# Copyright (C) 2004 Jörg Tiedemann <joerg@stp.ling.uu.se>
#
# $Id$
grep '<wordLink ' |\
perl -e 'if ($]>=5.008){binmode(STDIN, ":encoding(utf-8)");};
while (<>){if (/lexPair=\"([^\"]*)\"/){print "$1\n";}}' |\
tr ';' "\t" |\
sort |\
uniq -c |\
sort -rn