my %hash;
$hash{$_}++ for
 join(" ",<>)=~/\b[a-z]+\b/g;
print "$_\n" for sort keys %hash;