loop do
    n = gets.to_i
    break if n == 0
    g = n.times.map{gets.chomp}
    h = Hash.new(Array.new)
    g.each do |s|
        s = s.gsub("\.","").split(":")
        h[s[0]] = s[1].split(",")
    end
    t = h.to_a[0][0]
    count = 0
    a = h[t]
    while true
        a2 = a
        bl = false
        a.each do |m|
            if h.has_key?(m)
                a.delete(m)
                bl = true
                a2.concat(h[m])
            end
        end
        break if !bl
        a = a2
    end
    p a.uniq.count
end