#!/usr/bin/env ruby

#require 'debug'
require 'set'

class FindString

  def initialize
    t=gets.to_i #Num of test cases
    @string_store=Array.new
    @query_store=Array.new
    #@hash_store=Hash.new
    @set_store=Set.new

    #Push all the Strings in Array
    1.upto(t) do
      @string_store.push(gets)
    end

    query=gets.to_i
    #Query indexes Array
    1.upto(query) do
      @query_store.push(gets.to_i)
    end

    calc_index #Calculate the index in final resulted array of union of substring
  end

  def calc_index    
  
=begin
    for string in @string_store do
      for c in 0...string.length
        index_to_sum=0
        while c+index_to_sum<string.length do
          substring=string[c..(c+index_to_sum)]         
          unless @hash_store[substring]=='X'
            @hash_store[substring]='X'
          end
          index_to_sum+=1
        end
      end
    end
=end   
    
    for string in @string_store do
      for c in 0...string.length
        index_to_sum=0
        while c+index_to_sum<string.length do
          substring=string[c..(c+index_to_sum)]         
          @set_store.add(substring)
          index_to_sum+=1
        end
      end
    end
    
    puts @set_store.size
    @set_store.each { |s| puts s }
  end  
end

FindString.new