open T,$ARGV[0];for(<T>){$_=lc;y/[a-z]/ /cs;push@l,split}close;
@l=sort(split/:/,join"\n:",grep(!$s{$_}++,@l));open T,">dict";
print T for@l;close