++- Selene                                                 ** Veronica

frequency = text + table ->                                (@ frequency text .table +-
  nlog2n = max + n ->                                          (@ nlog2n max .n +-
    n = max                                                        (max .n)
                                                                   (.* 2..max i >
    do {2..max} i ->                                                   ([< max] (* i (# log2 i)) >
      if (i * (log2 i) < max) -> n = i, iterate                            (i .n)
      else leave                                                       >
    ;                                                                      ->>
  ;                                                                    )
                                                                   )
  table : [length] = {} ..                                     )
  ' length = nlog2n spaces                                     
  ' spaces - words-in text :: spaces ++                        (^ [length] .table .. -
                                                                   (# nlog2n spaces .length -
  - words-in text ( word ->                                            (# words-in text :: (++ .spaces))
                            if table.!word -> table:word = 1       )
                            else table:word ++                 )
                  )                                            (# words-in text (@ word +- 
_                                                                                   ([table.!word] >
  text : string                                                                         (1 .table:word)
  table : list : string <- integer                                                  >
;                                                                                       (++ .table:word)
                                                                                    )
                                                                                )
                                                               )
                                                           +
                                                               {string} text
                                                               {list : string <- integer} table   
                                                           )
