Problem:
Score : 200 points

Problem Statement

N Snukes called Snuke 1, Snuke 2, ..., Snuke N live in a town.

There are K kinds of snacks sold in this town, called Snack 1, Snack 2, ..., Snack K. The following d_i Snukes have Snack i: Snuke A_{i, 1}, A_{i, 2}, \cdots, A_{i, {d_i}}.

Takahashi will walk around this town and make mischief on the Snukes who have no snacks. How many Snukes will fall victim to Takahashi's mischief?

Constraints

All values in input are integers.

1 \leq N \leq 100

1 \leq K \leq 100

1 \leq d_i \leq N

1 \leq A_{i, 1} < \cdots < A_{i, d_i} \leq N

Input

Input is given from Standard Input in the following format:

N K
d_1
A_{1, 1} \cdots A_{1, d_1}
\vdots
d_K
A_{K, 1} \cdots A_{K, d_K}

Output

Print the answer.

Sample Input 1

3 2
2
1 3
1
3

Sample Output 1

1

Snuke 1 has Snack 1.

Snuke 2 has no snacks.

Snuke 3 has Snack 1 and 2.

Thus, there will be one victim: Snuke 2.

Sample Input 2

3 3
1
3
1
3
1
3

Sample Output 2

2

Solution in Haskell (GHC 8.8.3) (judge verdict: Accepted)

import Control.Monad
import Data.List

main = do
  [n, k] <- map read . words <$> getLine
  members <- forM [1..(k::Int)] $ \x -> do
    getLine
    member <- map read . words <$> getLine
    return (member::[Int])
  
  putStrLn $ show $ n - (length $ ans n [] members)

push member current = 
	union member current
  --member ++ ( filter (\x -> (x `elem` member) == False) current)

ans :: Int -> [Int] -> [[Int]] -> [Int]
ans n buffer members
  | xs == [] = push buffer x
  | length buffer == n = buffer
  | otherwise = ans n (push buffer x) xs
  where (x:xs) = members