lib C
  fun strtoll(s : UInt8*, p : UInt8**, b : Int32) : Int64
end

class String
  def to_i64
    C.strtoll(self, nil, 10)
  end
end

x = read_line.split.map(&.to_i).sort
n = read_line.to_i
a = read_line.split.map(&.to_i)

dp = [0i64] * 8
dp[0] = 1i64

(0...n).each do |i|
  dp2 = dp.dup
  (0...8).each do |bit|
    if pos = (0...3).select { |j| bit.bit(j) == 0 && x[j] <= a[i] }.max_by? { |j| x[j] }
      dp2[bit | (1 << pos)] += dp[bit]
    else
      dp2[bit] += dp[bit]
    end
  end
  dp = dp2
end

puts dp[-1]