(@ frequency text .table +-
    (@ nlog2n max .n +-
        (max .n)
        (.* 2..max i >
            ([< max] (* i (# log2 i)) >
                (i .n)
            >
                ->>
            )
        )
    )

    (^ [length] .table .. -
        (# nlog2n spaces .length -
            (# words-in text :: (++ .spaces))
        )
    )
    (# words-in text (@ word +-
                         ([table.!word] >
                             (1 .table:word)
                         >
                             (++ .table:word)
                         )
                     )
    )
+
    {string} text
    {list : string <- integer} table
)




