link split
procedure main()
    counts := table(0)

    while line := read() do
        every word := !split(line) do
            counts[word] +:= 1

    pairs := sort(counts, 1)
    every pair := !pairs do
        write(left(pair[1], 12) , pair[2])
end