read tr ' ' ' '|sort|uniq -c|perl -pe'$\+=$-=$_-2}{'