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









