Class Main
    Public Shared Sub Main()
    Dim NK() As string = Split(Console.ReadLine())
    dim N as integer = cint(NK(0))
    dim K as integer = cint(NK(1))
    dim S(N) as string
    dim i1, i2, i3 as integer
    for i1 = 1 to N
    	S(i1) = ""
  	next i1
    for i1 = 1 to K    
        dim d as integer = Console.ReadLine
    	Dim A() As string = Split(Console.ReadLine())
    	for i2 = 0 to d - 1
  			i3 = cint(A(i2))
  			S(i3) = "1"
  		next i2
	next i1
	I2 = 0
   for i1 = 1 to N
		if S(i1) = "" then
			i2 += 1
		end if
  	next i1
      Console.WriteLine(i2)
   End Sub
End Class
