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