N,K=gets.split.map &:to_i
A=gets.split.map &:to_i
require 'set'
ans = Set.new
(2**N).times{|b|
  s=0
  m=1
  c=0
  N.times{|i|
    if b[i]==1 then
		s+=A[i]
		m*=A[i]
		c+=1
	end
  }
  if c >= K then
	ans << s
	ans << m
  end
}
p ans.size