(@ frequency words .table +-                                         frequency = words + table ->
    (.* words word >                                                   for words word ->
        ([table.!word] >                                                 if table.!word -> table:word = 1
            (1 .table:word)                                              else table:word ++
        >                                                              ;
            (++ .table:word)                                         _
        )                                                              words : array : string
    )                                                                  table : list : string <- integer
+                                                                    ;
    {array : string} words
    {list : string <- integer} table
)









