import times, strutils, sequtils, math, algorithm, tables, sets, lists, intsets
import critbits, future, strformat, deques
template `max=`(x,y) = x = max(x,y)
template `min=`(x,y) = x = min(x,y)
template `mod=`(x,y) = x = x mod y
template scan2 = (scan(), scan())
template scan3 = (scan(), scan())
let read* = iterator: string {.closure.} =
    while true: (for s in stdin.readLine.split: yield s)
proc scan(): int = read().parseInt
proc scanf(): float = read().parseFloat
proc toInt(c:char): int =
    return int(c) - int('0')


proc fact(n:int):int=
  if n==0:
    return 1
  if n==1:
    return 1
  else:
    return n*fact(n-1)


proc getIdx(v:seq[int]):int=
  var
    n = v.len
    avlNum = newseq[int](n)
  result=1
  for i in 1..n:
    avlNum[i-1]=i
  for digit in 0..<n:
    for idx, num in avlNum:
      if v[digit]==num:
        result+=idx*fact(n-digit-1)
        avlNum.delete(idx)
        break



proc getSeq(n:int,v:int):seq[int]=
  result = newseq[int]()
  var cum = 0
  for digit in 1..n:# digit桁目まで決まった場合
    #echo "digit: ", digit, " cum:", cum, " result:", result
    var avlNum = newseq[int]()
    for i in 1..n:
      if i notin result:
        avlNum.add(i)
    #echo avlNum
    # avlNumに入っている数字は使っていい
    for idx, num in avlNum:
      #echo fmt"{idx} , {cum} + {fact(n-digit)}"
      if v > cum+fact(n-digit):
        cum+=fact(n-digit)
      else:
        result.add(num)
        break

proc getInv(v:seq[int]):seq[int]=
  var n = v.len
  result = newseq[int](n)
  for i in 0..<n:
    result[v[i]-1] = i+1

#echo getSeq(5,51)
#echo getSeq(5,51).getInv
#echo getSeq(5,51).getInv.getIdx

proc solve():int=
  var
    n = scan()+1
    s = scan()
  return getSeq(s,n).getInv.getIdx-1

  

echo solve()