(extend gauche.sequence srfi-13)(dolist(x(group-sequence(sort(string-tokenize(string-filter(string-downcase(read-block 4000))#[a-z ])#[a-z])):test equal?))(print(length x)" "(car x)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).