-- find the full list of usernames in our data set:
the-list-of |usernames> => ket-sort clean author rel-kets[author] |>

-- find the inverse-authors:
|null> => find-inverse[author] |>

-- find the word frequency lists for all our users:
freq-list-op |*> #=> coeff-sort word-ngrams[1] remove-prefix["text: "] body inverse-author |_self>
|null> => map[freq-list-op, freq-list] the-list-of |usernames>

-- filter the list of user names to those that have a non-empty word frequency list:
-- do-you-know-freq-list |*> #=> do-you-know freq-list |_self>

-- filter the list of user names to those that have at least 20 words in their word frequency list:
do-you-know-freq-list |*> #=> is-greater-than[20] how-many freq-list |_self>
the-list-of-non-empty |usernames> => such-that[do-you-know-freq-list] the-list-of |usernames>

-- find kuron's that are at least 50% similar in their word frequency list:
similar-kuron-op |*> #=> drop-below[0.5] ( similar-input[freq-list] freq-list - 1 ) |_self>
|null> => map[similar-kuron-op, similar-kuron] the-list-of-non-empty |usernames>

-- useful operator to help filter the list of users down to those that have similar kuron's:
do-you-know-similar-kuron |*> !=> do-you-know similar-kuron |_self>

-- finally, display the table of results:
|null> => table[kuron, similar-kuron] such-that[do-you-know-similar-kuron] the-list-of-non-empty |usernames>


-- given a username, find kuron's with similar word frequency lists:
t |*> #=> table[kuron, coeff] select[1,20] 100 similar-input[freq-list] freq-list (|kuron:> __ |_self>)