sum((sum(if a[i]=a[j]then d:j,j,i,n),printf(is(d#i),"~a: ~a
",a[i],d-i)),i,1,n:length(a:split(?read\-line(),"")));