read n
read -aa
read -ab

f(){
	local i
	for((r+=($1==n&$2>n)*100;i<n;++i)){
		((~$3&1<<i))&&f $1+1 $2+$[a[i]>b[$1]]*2 $[$3|1<<i]
	}
}
f 0 0 0 '++j<=n?_/--j:r'
echo $[_]e-2