gets
ans = -1
r = [-1]
gets.chomp.split(" ").map(&:to_i).each do |h|
	if r.last < h
		r << h
	else
		while r.last > h
			r.pop
			ans += 1
		end
		if r.size == 1
			r << h
		end
	end
end
puts ans + r.size