#* 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:

    if LEn[IndexEn][0] + MegunasiIdo >= min(LEn[IndexEn][1], LBarat[IndexBarat][1]): 
        b = max(LEn[IndexEn][0], LBarat[IndexBarat][0])
        j = min(LEn[IndexEn][1], LBarat[IndexBarat][1])

        if j > b:
            EgyuttJatszottEgysegek += j-b+1
        elif j == b:
            EgyuttJatszottEgysegek += 1

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

print(EgyuttJatszottEgysegek)