l:length;while(x:?read\-line(?-,?-,~))#~do(a:charlist(x),printf(?t,"~a ~a ~a
",a[1],last(a),l(a)/l(unique(a))));