main = do
  li <- getLine
  let n = read li
  li <- getLine
  let ps = map read $ words li
  li <- getLine
  let qs = map read $ words li
  let ans = compute n ps qs
  print ans

{-
1..nの順列で、最小のものは 1 2 .. n 最大のものは n n-1 ... 2 1
下から数えて、iケタめが増えるということは、i-1桁ぶんの順列を使い果たすということなので、(i-1)!増えるということ。
i-1種類の記号のうちの何番目なのかは、上で使ってしまった記号を除いた残りで数える必要がある。
-}
compute :: Int -> [Int] -> [Int] -> Int
compute n ps qs = abs (p-q)
  where
    p = nth ps [1..n]
    q = nth qs [1..n]

nth [] [] = 0
nth (p:ps) ns = n * product [1..length ns-1] + nth ps ns1
  where
    (n,ns1) = find p ns

find p (n:ns)
  | p == n = (0,ns)
  | True   = let (k,ns1) = find p ns in (succ k,n:ns1)
