l:length;while(x:?read\-line(?-,?-,~))#~do(a:charlist(x),printf(?t,"~a ~a ~a ",a[1],last(a),l(a)/l(unique(a))));
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page