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