sum(if(a:charlist(string(x)))=reverse(unique(a))then dispterms(x),x,10,9876);