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