N = gets.to_i
a, b, c = gets.split(" ").map{|s| s.to_i}

s = [0]
gets.split(" ").map{|s| s.length}.each {|j|
	s << s[-1] + j
}

cnt = 0
1.upto(N-2) {|i|
	y = s[i]
	cnt += 1 if s.bsearch{|x| x >= y - a} == y - a and
		s.bsearch{|x| x >= y + b} == y + b and
		s.bsearch{|x| x >= y + b + c} == y + b + c
}

puts cnt