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