n = gets.chomp.to_i
arr = gets.chomp.split.map(&:to_i)
t = []
n.times do |i|
  t << arr.shift
end

# swap????????????
def swap(list, idx1, idx2)
  list[idx1], list[idx2] = list[idx2], list[idx1]
  return list
end

def minCostPath(list)
  sorted = list.sort
  total = 0
  
  # list?????????
  list.size.times do |i|
    # ???????????????????????????????????????????????£?????????
    idx1 =sorted[i]
   
    # ??????????????????????????????????±??????????index????????£?????????
    idx2 = list.index idx1
    n = 0 
    while idx2 > i
      # ??????????????????
      n += 1

      sortedidx = list.index sorted[idx2]
      total += list[sortedidx]
      list = swap(list, idx2, sortedidx) 
      idx2 = sortedidx
    end
    total += [idx1 * n, idx2*2+sorted[0]*(n+2)].min
  end
  return total
end

total = minCostPath(t)
p total