#* Az az idő amely alatt megunom a játékot egyedül
MegunasiIdo = int(input())

#* Szüneteimnek száma, szüneteim range formában, listában
NEn = int(input())
LEn = []
for i in range(NEn):
    rawInput = list(map(int, input().split()))
    LEn.append(rawInput)

#* Barát szüneteinek száma, szünetei range formában, listában
NBarat = int(input())
LBarat = []

for i in range(NBarat):
    rawInput = list(map(int, input().split()))
    LBarat.append(rawInput)


#* Melyik indexnél tartok a listában (külön En, Barat)
IndexEn = IndexBarat = 0

#* Mostani unatkozas
UnatkozasMost = 0

#* Bal és jobb oldal a rangenek
b: int = 0
j: int = 0


EgyuttJatszottEgysegek = 0

while IndexEn < NEn and IndexBarat < NBarat:

    b = max(LEn[IndexEn][0], LBarat[IndexBarat][0])
    j = min(LEn[IndexEn][1], LBarat[IndexBarat][1])

    if j >= b and LEn[IndexEn][0] + MegunasiIdo >= LBarat[IndexBarat][0]:
        EgyuttJatszottEgysegek += j-b+1

    if LEn[IndexEn][1] < LBarat[IndexBarat][1]:
        IndexEn += 1
    else:
        IndexBarat += 1

print(EgyuttJatszottEgysegek)