map = Struct.new(:min, :max) map2 = Struct.new(:num, :range) n = gets.to_i a = gets.split.map(&:to_i) b = Array.new(n).map{map2.new(0, map.new)} c = Hash.new d = Array.new n.times do |i| if !c.has_key?(a[i]) c[a[i]] = map.new(i, i) else c[a[i]].max = i end d.push(a[i]) end d.uniq!.sort!{|a, b| b <=> a} d.each do |x| r = c[x] t = map.new(r.min, r.max) i = r.min while i <= r.max do if b[i].num == 0 b[i].num = x b[i].range = t i += 1 else if b[i].range.min > r.min b[i].range.min = r.min end si = b[i].range.max + 1 if b[i].range.max < r.max b[i].range.max = r.max end i = si end end end sp = false b.each do |x| if sp print " " end print x.num sp = true end puts