_=$<.read.downcase.tr('!-`~','').split.sort
puts$*|_.map{|w|[_.grep(w).size,w]*' '}