F=->a,b{
  return false if b.size<2
  r=false
  a.each{|c|
    (1...c.size).each{|i|
      if e=b.find{|d|d[0]==c[i]}
        b.delete e
        f=b.find{|g|g[-1]==c[i-1]}
        b.delete f
        b<<f+e
        r=true
      end
    }
  }
  r
}
a=gets.to_i.times.map{gets.chomp}
b=gets.to_i.times.map{gets.chomp}
f=true
while f
  f=F[a,b]|F[b,a]
end
puts a.size==1?a[0]:-1