USING: accessors assocs kernel prettyprint sequences sorting vocabs ;
IN: nasty

: word-lengths ( -- assoc )
    all-words [ dup def>> length ] { } map>assoc ;

: nastiest-words ( -- seq )
    word-lengths sort-values reverse 20 head ;

nastiest-words .