print "$_\n" for sort keys %{{
 map {$_, 1} grep /^[a-z]+$/, (join(" ",<>)=~/(\w+)/g)
}};