#include <bits/stdc++.h>

#define ll long long
#define ldb long double
#define endl '\n'
#define For(i,l,r) for(int i=l;i<=r;i++)
#define ForD(i,r,l) for(int i=r;i>=l;i--)
#define ff first
#define ss second
#define pb push_back
#define all(x) x.begin(),x.end()
#define sz(x) (signed)x.size()
#define unq(x) x.resize(unique(all(x))-x.begin())
#define F "TASK"
#define fio freopen(F".INP","r",stdin);freopen(F".OUT","w",stdout);

#ifdef NCGM
#include"debug.h"
#else
#define debug(...) "fr";
#endif

using namespace std;

const int N=10000,MOD=1e9+7,INV=500000004;

struct SegTree {
    ll tr[N*4];
    void reset(int id,int l,int r) {
        tr[id]=0;
        if (l==r) return;
        int mid=l+r>>1;
        reset(id*2,l,mid);
        reset(id*2+1,mid+1,r);
    }
    void update(int id,int l,int r,int u,int x) {
        if (l>u || r<u) return;
        if (l==r) return void(tr[id]=x);
        int mid=l+r>>1;
        update(id*2,l,mid,u,x);
        update(id*2+1,mid+1,r,u,x);
        tr[id]=tr[id*2]*tr[id*2+1]%MOD;
    }
    ll query(int id,int l,int r,int u,int v) {
        if (l>v || r<u) return 1;
        if (l>=u && r<=v) return tr[id];
        int mid=l+r>>1;
        return query(id*2,l,mid,u,v)*query(id*2+1,mid+1,r,u,v)%MOD;
    }
} st;

int n,a[N],b[N],c[N],lft[N][2],lft1[N][2],rgt[N][2],pw[N*2];
vector<pair<int,int>> in[N*2];
vector<ll> big;
ll ans=0;
void solve() {
    cin >> n;
    pw[0]=1;
    For(i,1,n) pw[i]=pw[i-1]*2%MOD;
    For(i,1,n) {
        cin >> a[i];
        big.pb(a[i]);
    }
    For(i,1,n) {
        cin >> b[i];
        big.pb(b[i]);
    }
    sort(all(big));
    unq(big);
    For(i,1,n) in[lower_bound(all(big),a[i])-big.begin()+1].pb({i,0});
    For(i,1,n) in[lower_bound(all(big),b[i])-big.begin()+1].pb({i,1});
    For(i,1,n) c[i]=0;
    st.reset(1,1,n);
    ll cc=1;
    For(i,1,n-1) cc=cc*2%MOD;
    For(i,1,sz(big)+1) {
        for(auto el: in[i-1]) {
            c[el.ff]++;
            st.update(1,1,n,el.ff,c[el.ff]);
        }
        for(auto el: in[i-1]) {
            if (el.ff>1 && el.ff<n) {
                ans=(ans+1LL*(el.ss?b[el.ff]:a[el.ff])*st.query(1,1,n,1,el.ff-1)%MOD*pw[n-el.ff]%MOD)%MOD;
                ans=(ans+1LL*(el.ss?b[el.ff]:a[el.ff])*st.query(1,1,n,el.ff+1,n)%MOD*pw[el.ff-1]%MOD)%MOD;
                ans=(ans-1LL*(el.ss?b[el.ff]:a[el.ff])*st.query(1,1,n,1,el.ff-1)%MOD*st.query(1,1,n,el.ff+1,n)%MOD)%MOD;
            }
            else ans=(ans+1LL*(el.ss?b[el.ff]:a[el.ff])*cc%MOD)%MOD;
        }
        for(auto el: in[i-1]) {
            if (el.ff>1) lft[el.ff][el.ss]=st.query(1,1,n,1,el.ff-1);
            else lft[el.ff][el.ss]=1;
            if (el.ff<n) rgt[el.ff][el.ss]=st.query(1,1,n,el.ff+1,n);
            else rgt[el.ff][el.ss]=1;
        }
        for(auto el: in[i]) {
            if (el.ff>1) lft1[el.ff][el.ss]=st.query(1,1,n,1,el.ff-1);
            else lft1[el.ff][el.ss]=1;
        }
    }
    For(i,1,n) c[i]=0;
    For(i,1,sz(big)) {
        for(auto el: in[i-1]) c[el.ff]++;
        for(auto el: in[i]) {
            ll tmp=1;
            ForD(j,el.ff-1,1) {
                if (tmp==0) break;
                if (a[j]>big[i-1]) ans=(ans+big[i-1]*tmp%MOD*pw[j-1]%MOD*rgt[el.ff][el.ss]%MOD*(el.ff-j-1)%MOD)%MOD;
                else if (a[j]==big[i-1]) {
                    ans=(ans+big[i-1]*tmp%MOD*(pw[j-1]-lft1[j][0])%MOD*rgt[el.ff][el.ss]%MOD*(el.ff-j-1)%MOD)%MOD;
                    ans=(ans+big[i-1]*tmp%MOD*lft1[j][0]%MOD*pw[n-el.ff]%MOD*(el.ff-j-1)%MOD)%MOD;
                }
                if (b[j]>big[i-1]) ans=(ans+big[i-1]*tmp%MOD*pw[j-1]%MOD*rgt[el.ff][el.ss]%MOD*(el.ff-j-1)%MOD)%MOD;
                else if (b[j]==big[i-1]) {
                    ans=(ans+big[i-1]*tmp%MOD*(pw[j-1]-lft1[j][1])%MOD*rgt[el.ff][el.ss]%MOD*(el.ff-j-1)%MOD)%MOD;
                    ans=(ans+big[i-1]*tmp%MOD*lft1[j][1]%MOD*pw[n-el.ff]%MOD*(el.ff-j-1)%MOD)%MOD;
                }
                tmp=tmp*c[j]%MOD;
            }
            tmp=1;
            For(j,el.ff+1,n) {
                if (tmp==0) break;
                if (a[j]>big[i-1]) ans=(ans+big[i-1]*tmp%MOD*pw[n-j]%MOD*lft[el.ff][el.ss]%MOD*(j-el.ff-1)%MOD)%MOD;
                if (b[j]>big[i-1]) ans=(ans+big[i-1]*tmp%MOD*pw[n-j]%MOD*lft[el.ff][el.ss]%MOD*(j-el.ff-1)%MOD)%MOD;
                tmp=tmp*c[j]%MOD;
            }
        }
    }
    For(i,1,n) ans=(ans-1LL*a[i]*cc%MOD)%MOD;
    For(i,1,n) ans=(ans-1LL*b[i]*cc%MOD)%MOD;
    ans=(ans+MOD)%MOD;
    cout << ans;
}
int main() {
    cin.tie(0)->sync_with_stdio(0);
    solve();
    return 0;
}