Each employee of the "Blake Techologies" company uses a special messaging app "Blake Messenger". All the stuff likes this app and uses it constantly. However, some important futures are missing. For example, many users want to be able to search through the message history. It was already announced that the new feature will appear in the nearest update, when developers faced some troubles that only you may help them to solve.

All the messages are represented as a strings consisting of only lowercase English letters. In order to reduce the network load strings are represented in the special compressed form. Compression algorithm works as follows: string is represented as a concatenation of n blocks, each block containing only equal characters. One block may be described as a pair (l_{i}, c_{i}), where l_{i} is the length of the i-th block and c_{i} is the corresponding letter. Thus, the string s may be written as the sequence of pairs $\langle(l_{1}, c_{1}),(l_{2}, c_{2}), \ldots,(l_{n}, c_{n}) \rangle$.

Your task is to write the program, that given two compressed string t and s finds all occurrences of s in t. Developers know that there may be many such occurrences, so they only ask you to find the number of them. Note that p is the starting position of some occurrence of s in t if and only if t_{p}t_{p} + 1...t_{p} + |s| - 1 = s, where t_{i} is the i-th character of string t.

Note that the way to represent the string in compressed form may not be unique. For example string "aaaa" may be given as $\langle(4, a) \rangle$, $\langle(3, a),(1, a) \rangle$, $\langle(2, a),(2, a) \rangle$...


-----Input-----

The first line of the input contains two integers n and m (1 ≤ n, m ≤ 200 000) — the number of blocks in the strings t and s, respectively.

The second line contains the descriptions of n parts of string t in the format "l_{i}-c_{i}" (1 ≤ l_{i} ≤ 1 000 000) — the length of the i-th part and the corresponding lowercase English letter.

The second line contains the descriptions of m parts of string s in the format "l_{i}-c_{i}" (1 ≤ l_{i} ≤ 1 000 000) — the length of the i-th part and the corresponding lowercase English letter.


-----Output-----

Print a single integer — the number of occurrences of s in t.


-----Examples-----
Input
5 3
3-a 2-b 4-c 3-a 2-c
2-a 2-b 1-c

Output
1
Input
6 1
3-a 6-b 7-a 4-c 8-e 2-a
3-a

Output
6
Input
5 5
1-h 1-e 1-l 1-l 1-o
1-w 1-o 1-r 1-l 1-d

Output
0


-----Note-----

In the first sample, t = "aaabbccccaaacc", and string s = "aabbc". The only occurrence of string s in string t starts at position p = 2.

In the second sample, t = "aaabbbbbbaaaaaaacccceeeeeeeeaa", and s = "aaa". The occurrences of s in t start at positions p = 1, p = 10, p = 11, p = 12, p = 13 and p = 14.

Difficulty: interview

Starter code:

Solutions:
def ziped(a):
	p = []
	for i in a:
		x = int(i.split('-')[0])
		y = i.split('-')[1]
		if len(p) > 0 and p[-1][1] == y:
			p[-1][0] += x
		else:
			p.append([x, y])
	return p

def solve(a, b , c):
	ans = 0
	if len(b) == 1:
		for token in a:
			if c(token, b[0]):
				ans += token[0] - b[0][0] + 1
		return ans
		
	if len(b) == 2:
		for i in range(len(a) - 1):
			if c(a[i], b[0]) and c(a[i + 1], b[-1]):
				ans += 1
		return ans
		
	v = b[1 : -1] + [[100500, '#']] + a
	p = [0] * len(v)
	for i in range(1, len(v)):
		j = p[i - 1]
		while j > 0 and v[i] != v[j]:
			j = p[j - 1]
		if v[i] == v[j]:
			j += 1
		p[i] = j
		
	for i in range(len(v) - 1):
		if p[i] == len(b) - 2 and c(v[i - p[i]], b[0]) and c(v[i + 1], b[-1]):
			ans += 1
	return ans

n, m = list(map(int, input().split()))
a = ziped(input().split())
b = ziped(input().split())
print(solve(a, b, lambda x, y: x[1] == y[1] and x[0] >= y[0]))


def ziped(a):
    p = []
    for i in a:
        x = int(i.split('-')[0])
        y = i.split('-')[1]
        if len(p) > 0 and p[-1][1] == y:
                p[-1][0] += x
        else:
                p.append([x, y])
    return p

def solve(a, b , c):
    
    ans = 0
    if len(b) == 1:
        for token in a:
            #print("token",token)
            if c(token, b[0]):
                ans += token[0] - b[0][0] + 1
        return ans
		
    if len(b) == 2:
        for i in range(len(a) - 1):
            if c(a[i], b[0]) and c(a[i + 1], b[-1]):
                ans += 1
        return ans
		
    v = b[1 : -1] + [[100500, '#']] + a
    p = [0] * len(v)
    for i in range(1, len(v)):
        j = p[i - 1]
        while j > 0 and v[i] != v[j]:
            j = p[j - 1]
        if v[i] == v[j]:
            j += 1
        p[i] = j
		
    for i in range(len(v) - 1):
        if p[i] == len(b) - 2 and c(v[i - p[i]], b[0]) and c(v[i + 1], b[-1]):
            ans += 1
    return ans

n, m = list(map(int, input().split()))
a = ziped(input().split())
b = ziped(input().split())
print(solve(a, b, lambda x, y: x[1] == y[1] and x[0] >= y[0]))


def compress(bstr):
    pk, pc = None, None

    for block in bstr:
        if pc is None:
            pk, pc = block
        elif pc == block[1]:
            pk += block[0]
        else:
            yield  pk, pc
            pk, pc = block

    if pc is not None:
        yield pk, pc


def find1(text, query):
    (bk, bc), = query
    return sum(k-bk+1 for k, c in text if c == bc and k >= bk)


class Query:
    def __init__(self, query):
        self._query = query
        self._len = len(query)
        self._suffixes = {}

    def precompute(self):
        for i in range(self._len-1):
            self._suffix(i)

    def _suffix(self, i, pblock=None):
        if not i:
            return None

        if pblock is None and i is not None:
            pblock = self._query[i]

        if (i, pblock) in self._suffixes:
            return self._suffixes[i, pblock]
        else:
            sfx = self.next(self._suffix(i-1), pblock)
            self._suffixes[i, pblock] = sfx
            return sfx

    def _match(self, i, block):
        if i == 0 or i == self._len -1:
            return (block[1] == self._query[i][1]
                    and block[0] >= self._query[i][0])
        else:
            return block == self._query[i]

    def next(self, i, block, pblock=None):
        while True:
            if i is None:
                return 0 if self._match(0, block) else None
            elif i < self._len-1:
                if self._match(i+1, block):
                    return i+1
                else:
                    i = self._suffix(i)
            else:
                i = self._suffix(i, pblock)
                pblock = None

    def is_match(self, i):
        return i == self._len-1


def find2(text, query):
    qobj = Query(query)
    qobj.precompute()
    i = None
    pblock = None
    c = 0
    for block in text:
        i, pblock = qobj.next(i, block, pblock), block
        if qobj.is_match(i):
            c += 1
    return c


def find(text, query):
    text = list(compress(text))
    query = list(compress(query))
    return (find1 if len(query) == 1 else find2)(text, query)


def parse_block(s):
    k, c = s.split('-')
    return int(k), c


def get_input():
    n, m = list(map(int, input().split()))
    text = list(map(parse_block, input().split()))
    assert len(text) == n
    query = list(map(parse_block, input().split()))
    assert len(query) == m
    return text, query


def __starting_point():
    print(find(*get_input()))

__starting_point()

def compress(bstr):
    pk, pc = None, None

    for block in bstr:
        if pc is None:
            pk, pc = block
        elif pc == block[1]:
            pk += block[0]
        else:
            yield  pk, pc
            pk, pc = block

    if pc is not None:
        yield pk, pc


def find1(text, query):
    (bk, bc), = query
    return sum(k-bk+1 for k, c in text if c == bc and k >= bk)


class Query:
    def __init__(self, query):
        self._query = query
        self._len = len(query)
        self._suffixes = [None]

    def _suffix(self, i, pblock=None):
        if i is None:
            return None

        for j in range(len(self._suffixes), min(i+1, self._len-1)):
            self._suffixes.append(
                self.next(self._suffixes[j-1], self._query[j]))

        if i < self._len - 1:
            return self._suffixes[i]
        else:
            return self.next(self._suffixes[i-1], pblock)

    def _match(self, i, block):
        if i == 0 or i == self._len -1:
            return (block[1] == self._query[i][1]
                    and block[0] >= self._query[i][0])
        else:
            return block == self._query[i]

    def next(self, i, block, pblock=None):
        while True:
            if i is None:
                return 0 if self._match(0, block) else None
            elif i < self._len-1:
                if self._match(i+1, block):
                    return i+1
                else:
                    i = self._suffix(i)
            else:
                i = self._suffix(i, pblock)
                pblock = None

    def is_match(self, i):
        return i == self._len-1


def find2(text, query):
    qobj = Query(query)
    i = None
    pblock = None
    c = 0
    for block in text:
        i, pblock = qobj.next(i, block, pblock), block
        if qobj.is_match(i):
            c += 1
    return c


def find(text, query):
    text = list(compress(text))
    query = list(compress(query))
    return (find1 if len(query) == 1 else find2)(text, query)


def parse_block(s):
    k, c = s.split('-')
    return int(k), c


def get_input():
    n, m = list(map(int, input().split()))
    text = list(map(parse_block, input().split()))
    assert len(text) == n
    query = list(map(parse_block, input().split()))
    assert len(query) == m
    return text, query


def __starting_point():
    print(find(*get_input()))

__starting_point()

def main():
    input()
    ts = []
    for _ in 0, 1:
        tmp = input().split()
        a, x, l = tmp[0][-1], 0, []
        for st in tmp:
            y = int(st[:-2])
            b = st[-1]
            if a != b:
                l.append(((x, a)))
                x, a = y, b
            else:
                x += y
        l.append(((x, a)))
        ts.append(l)
    t, s = ts
    res, m, x, a, y, b = 0, len(s), *s[0], *s[-1]
    if m == 1:
        res = sum(y - x + 1 for y, b in t if a == b and x <= y)
    elif m == 2:
        i, u = 0, ' '
        for j, v in t:
            if a == u and b == v and x <= i and y <= j:
                res += 1
            i, u = j, v
    else:
        t[:0] = s[1: -1] + [(0, ' ')]
        tmp = [0] * len(t)
        for i, j in zip(list(range(1, len(t))), tmp):
            while j > 0 and t[i] != t[j]:
                j = tmp[j - 1]
            tmp[i] = j + 1 if t[i] == t[j] else j
        m -= 2
        del tmp[-1]
        for i, q in enumerate(tmp):
            if q == m:
                i, u, j, v = *t[i - q], *t[i + 1]
                if a == u and b == v and x <= i and y <= j:
                    res += 1
    print(res)


def __starting_point():
    main()

__starting_point()

def ziped(a):
	p = []
	for i in a:
		x = int(i.split('-')[0])
		y = i.split('-')[1]
		if len(p) > 0 and p[-1][1] == y:
			p[-1][0] += x
		else:
			p.append([x, y])
	return p

def solve(a, b , c):
	ans = 0
	if len(b) == 1:
		for token in a:
			if c(token, b[0]):
				ans += token[0] - b[0][0] + 1
		return ans

	if len(b) == 2:
		for i in range(len(a) - 1):
			if c(a[i], b[0]) and c(a[i + 1], b[-1]):
				ans += 1
		return ans

	v = b[1 : -1] + [[100500, '#']] + a
	p = [0] * len(v)
	for i in range(1, len(v)):
		j = p[i - 1]
		while j > 0 and v[i] != v[j]:
			j = p[j - 1]
		if v[i] == v[j]:
			j += 1
		p[i] = j

	for i in range(len(v) - 1):
		if p[i] == len(b) - 2 and c(v[i - p[i]], b[0]) and c(v[i + 1], b[-1]):
			ans += 1
	return ans

n, m = list(map(int, input().split()))
a = ziped(input().split())
b = ziped(input().split())
print(solve(a, b, lambda x, y: x[1] == y[1] and x[0] >= y[0]))