f,e,_,*n=$<.map &:to_i
p (n.size-n.uniq.size)*f+=e