N, M = gets.chomp.split.map(&:to_i)

i = 0
a = []
c = []
M.times do
  a[i],c[i] = gets.chomp.split.map(&:to_i)
  i += 1
end

result_num = ""
N.times do
  result_num << "0"
end

#p a, c

i = 0
char_num = result_num.chars
M.times do
  min_uniq_num = true
  #char_num = result_num.chars
  a.each_with_index do |a_k, n|
    if a_k == a[i] && c[i] > c[n]
      min_uniq_num = false
    end
  end
  #p char_num
  #p a[i]
  #p min_uniq_num
  
  if min_uniq_num
    char_num[a[i] - 1] = c[i].to_s
  end

  i += 1
end

char_num.each_with_index do |cn, n|
  if cn == "0"
    char_num[n] = ''
  else
    break
  end
end

result_num = char_num.join

if result_num.chars.count == N
  puts result_num
else
  puts "-1"
end

