a=$<.map &:to_i
p (a[0]+a[1])*(a[2]-a[3..-1].sort.uniq.size)