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