N = gets.to_i
t = ?_*N
$<.each{|ln|
	s, c = ln.split
	s = s.to_i-1
	t[s] = c if t[s] == ?_
	(p(-1); exit) if t[s] != c
}
3.times{|s|
	t[s] = ?0 if t[s] == ?_
}
puts(
	if 1<N and t[0]==?0
		-1
	else t end
)
