Frequency ->
Arg Rc : &Array : < Word : String, F : Integer > 
    Text : String    

Table : List : String <- Integer : [Length] = <> ..
' Length = NLog2N Spaces
' Spaces - WordsIn Text :: Spaces ++

- WordsIn Text ( Word :
                        If Table->>!Word then Table->Word = 1                  /* O(log(n)) mem, O(log(n)) r/w */
                        Else Table->Word ++
               ),
  Sort >Rc< Table SORT_DESC ( 'Order_by Key Value : 
                                                    Order_by = Value 
                            ) 

/