all-source-files [ utf8 file-contents ] map " " join "[\n|\r|\t|\s\s]" " " re-replace [ length >array 20 head [ 1+ ] map ] keep " " split harvest [ swap clump ] curry map [ [ " " join ] map ] map count-dups just-2+ [ [ second ] bi@ <=> ] sort reverse