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