(@ gcd x y +-                                    (@ frequency text .table +-
    (x .a) (y .b)                                    (# words-in text (@ word +-
    (.* >                                                                 ([table.!word] >
        ([> b] a >                                                            (1 .table:word)
            (-= b .a)                                                     >
        >                                                                     (++ .table:word)
            ([> a] b >                                                    )
                (-= a .b)                                             )
            >                                        )
                ->>                              +
            )                                        {string} text
        )                                            {list : {string <- integer}} table   
    )                                            +
    (a)                                              [text]      
+                                                )
    {integer} x y
+
    [> 0] x y
)







