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