procedure main()
    counts := table(0)
    while line := read() do
        every c := !line do
            counts[c] +:= 1

    pairs := sort(counts,2)
    while pair := pull(pairs) do
        write(pair[1], " ", pair[2])
end