#reduces a file to a sorted list of unique words

my %words=map {$_,1} grep /^[a-z]+$/, (split /\s/, join(" ",<>));

print "$_\n" for sort keys %words;