P,Q,N,*R= $<.map &:to_i p ($.-3-R.uniq.size)*(P+Q)