"shuffle-words" >link uses [ word? ] filter dup [ [ name>> ] [ usage length ] bi ] { } map>assoc dup values sum '[ _ /f ] assoc-map sort-values unzip pie-chart print