a.jl

#!/usr/bin/env julia

count = Dict()

for line in eachline(stdin)
    for word in split(line)
    	if haskey(count,word) 
       	   count[word] += 1
    	else
	   count[word] = 1
        end	    
    end
end

for e in sort(collect(count), by=x->x[2], rev=true)
   println( first(e), "    " , last(e) )
end