The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#! /bin/bash
for i in $@; do
wn $i -synsn | 
sed 's/Sense //g' | 
sed 's/[[:space:]]*=> //' | 
sed 's/^[[:digit:]] senses of.*.$//' | 
grep -iv $1 |   
sed 's/^Synonyms\/Hypernyms.*.$//' | 
sed 's/ /_/g' |
sed 's/,_/,/g' | 
egrep "^[1-9]*" ;
wn $i -synsv | 
sed 's/^Synonyms\/Hypernyms.*.$//' | 
sed 's/Sense //g' | 
sed 's/[[:space:]]*=> //' | 
sed 's/^[[:digit:]] senses of.*.$//' | 
sed 's/Sense //g' | 
sed 's/[[:space:]]*=> //' | 
sed '/^$/d' |
egrep "^[1-9]*" |
#sed 's/ / /g' |
sed 's/,_/,/g' |
grep -iv $i; echo | egrep "[1-9]*";
done;