/*やったぜ。　投稿者：変態糞土方 (8月16日（水）07時14分22秒)

昨日の8月15日にいつもの浮浪者のおっさん（60歳）と先日メールくれた汚れ好きの土方のにいちゃん

（45歳）とわし（53歳）の3人で県北にある川の土手の下で盛りあったぜ。

今日は明日が休みなんでコンビニで酒とつまみを買ってから滅多に人が来ない所なんで、

そこでしこたま酒を飲んでからやりはじめたんや。

3人でちんぽ舐めあいながら地下足袋だけになり持って来たいちぢく浣腸を3本ずつ入れあった。

しばらくしたら、けつの穴がひくひくして来るし、糞が出口を求めて腹の中でぐるぐるしている。

浮浪者のおっさんにけつの穴をなめさせながら、兄ちゃんのけつの穴を舐めてたら、

先に兄ちゃんがわしの口に糞をドバーっと出して来た。

それと同時におっさんもわしも糞を出したんや。もう顔中、糞まみれや、

3人で出した糞を手で掬いながらお互いの体にぬりあったり、

糞まみれのちんぽを舐めあって小便で浣腸したりした。ああ～～たまらねえぜ。

しばらくやりまくってから又浣腸をしあうともう気が狂う程気持ちええんじゃ。

浮浪者のおっさんのけつの穴にわしのちんぽを突うずるっ込んでやると

けつの穴が糞と小便でずるずるして気持ちが良い。

にいちゃんもおっさんの口にちんぽ突っ込んで腰をつかって居る。

糞まみれのおっさんのちんぽを掻きながら、思い切り射精したんや。

それからは、もうめちゃくちゃにおっさんと兄ちゃんの糞ちんぽを舐めあい、

糞を塗りあい、二回も男汁を出した。もう一度やりたいぜ。

やはり大勢で糞まみれになると最高やで。こんな、変態親父と糞あそびしないか。

ああ～～早く糞まみれになろうぜ。

岡山の県北であえる奴なら最高や。わしは163*90*53,おっさんは165*75*60、や

糞まみれでやりたいやつ、至急、メールくれや。

土方姿のまま浣腸して、糞だらけでやろうや。*/
#include "bits/stdc++.h"
#include <unordered_set>
#define rep(i,n) for(ll i = 0; i < n; i++)
typedef long long ll;
typedef unsigned long long ull;
using namespace std;
#define vll vector<vector<long long>>
#define vl vector<long long>
#define vi vector<int>
#define vii vector<vector<int>>
#define pb push_back
#define pf push_front
#define ld long double
#define Sort(a) sort(a.begin(),a.end())
#define cSort(a,cmp) sort(a.begin(),a.end(),cmp)
#define reSort(a) sort(a.rbegin(), a.rend())
static ll llMAX = numeric_limits<long long>::max();
static int intMAX = numeric_limits<int>::max();
static ll  llMIN = numeric_limits<long long>::min();
static int intMIN = numeric_limits<int>::min();
static ll d_5 = 100000;
static ll d9_7 = 1000000007;
static ll d_9 = 1000000000;
template<class T>
void Printvector(std::vector<T> a){
  int size = a.size();
  rep(i,size){
    cout<<a[i]<<" ";
  }
  cout<<endl;
}
template<class T>
void Printvector(std::vector<std::vector<T>> a){
  int size = a.size();
  rep(i,size){
    int size2=a[i].size();
    rep(j,size2){
      cout<<a[i][j]<<" ";
    }
    cout<<endl;
  }
  cout<<endl;
}
ll digitpower(ll a,ll b){//aのb乗を計算
  if(b==1){
    return a;
  }else if(b==0){
    return 1;
  }
  if(b%2==1){
    ll tmp = digitpower(a,(b-1)/2);
    tmp%=d9_7;
    tmp*=tmp;
    tmp%=d9_7;
    tmp*=a;
    return (tmp)%d9_7;
  }else{
    ll tmp = digitpower(a,(b)/2);
    tmp%=d9_7;
    tmp*=tmp;
    tmp%=d9_7;
    return (tmp)%d9_7;
  }
}
//階乗
vl facs(1000000,-1);
ll Factrial(ll num){
  if(facs[num]!=-1){
    return facs[num];
  }
  if(num==1||num<=0){
    return 1;
  }else if(num<0){
    printf("ERROR_minus\n");
    return 0;
  }else{
    facs[num]=(num*Factrial(num-1))%d9_7;
    return facs[num];
  }
}
long long modinv(long long a, long long m) {//modの逆元
    long long b = m, u = 1, v = 0;
    while (b) {
        long long t = a / b;
        a -= t * b; swap(a, b);
        u -= t * v; swap(u, v);
    }
    u %= m; 
    if (u < 0) u += m;
    return u;
}
ll linercomb(ll n,ll k, ll mod){//n,kの線形時間で求める
  ll ans=Factrial(n);
  ans*=modinv(Factrial(k),mod);
  ans%=d9_7;
  ll k1=Factrial(k);
  k1%=mod;
  ans*=modinv(k1,mod);
  ans%=mod;
  return ans;
}
int LIS(vector<int> x){
  int n = x.size();
  vector<int> dp(n,intMAX);
  dp[0]=x[0];
  int length=1;
  rep(i,n-1){
    if(dp[length-1]<x[i+1]){
      dp[length]=x[i+1];
      length++;
      continue;
    }
   *lower_bound(dp.begin(),dp.end(),x[i+1])=x[i+1];
  }
  int ans;
  rep(i,n){
    if(dp[i+1]==intMAX){
      ans=i;
      break;
    }
    if(i==n-1){
      ans=dp[n-1];
    }
  }
	return ans;
}
ll nary_k(ll num,ll n,ll k){//numをn進数で表した時のk桁目
  return  num/((ll)pow(n,k)) - (num/((ll)pow(n,k+1)))*n;
}
//桁数を取得(n進数)
ll getdigit(ll num, ll n){
  ll ans=0;
  while(num!=0){
    ans++;
    num/=n;
  }
  return ans;
}

//素数列挙
#define P 1000000
vl primes;
vl primenum(P+1);
vector<bool> bprime(P+200);
ll searchprime(ll max){//発見した素因数の個数を返す
max+=180;
  bprime[1]=false;
 // cout<<"rrr"<<endl;;
  //cout<<max<<" "<<bprime.size()<<endl;
  for(ll i=2;i<=max;i++){
    bprime[i]=true;
  }
 //// cout<<"r";
  ll nowprimes=1;
  primes.pb(2);
  for(ll i=4;i<max;i+=2){
    bprime[i]=false;
  }
  //  cout<<"e";

  for(ll i=3;i<=max;i+=2){
    if(bprime[i]==true){
      //primes[nowprimes]=i;
      primes.pb(i);
      nowprimes++;
      for(ll j=2;i*j<=max;j++){
        bprime[i*j]=false;
      }
    }
  }
  return nowprimes;
}

ll nn;
void primenum_factorization(ll n){//primesで素因数分解の結果をprimenumに格納
  rep(i,primenum.size()){
    primenum[i]=0;
  }
    ll pren = n;
  for(int i=0;primes[i]<=n && pren!=1;i++){
   // cout<<primes[i]<<" ";
    while(1){
      if(pren%primes[i]==0){
        primenum[i]++;
        pren/=primes[i];
      }else{
        break;
      }
    }
  }
  return;
}
unordered_map<int,int> prime_factor(int64_t n) {
  unordered_map<int,int> ret;
  for(int64_t i = 2; i * i <= n; i++) {
    while(n % i == 0) {
      ret[i]++;
      n /= i;
    }
  }
  if(n != 1) ret[n] = 1;
  return ret;
}
struct datas{
  int l;
  int r;
  ll d;
};
/*
bool cmp(const datas &a, const datas &b)
{
    return a.indexplus1 > b.indexplus1;
}*/
//木構造グラフ
struct edge{
  int to;
  ll length;
  int num;
  int pair;
};
struct treev{
  int num;
  ll cnt;
  ll len;
  vector<int> nexts;
};
vector<treev> vs;
vector<edge> es;
 
int cmax=0;
void createtreenode(int num){//引数は頂点の数
  vs=vector<treev>(num);
  /*treev* newt;
  try{
      treev* newt=new treev;
  }
  catch (std::bad_alloc&) {
      // メモリ確保に失敗
      // エラー処理
  }*/
  rep(i,num){
    vs[i].num=i;
    vs[i].cnt=0;
    vs[i].len=llMAX;
  }
  return ;
}
void insertree_bidire(ll len,int Va,int Vb,int num){//結ぶ頂点を
  //双方向
  es.pb({Va,len,num,-1});
  es.pb({Vb,len,num,-1});
  int size=es.size();
  es[size-1].pair=size-2;
  es[size-2].pair=size-1;
  vs[Va].nexts.push_back(size-1);
  vs[Vb].nexts.push_back(size-2);
  
  return;
}
void insertree_unidire(ll len,int Va,int Vb,int num){//結ぶ頂点を
  //単方向,aからbへ
  es.pb({Vb,len,num,-1});
  int size=es.size();
  es[size-1].pair=-1;
  vs[Va].nexts.push_back(size-1);
  return;
}
void DFS(int root,ll depth,int pre, int precol){
  //ここにやりたい処理を書く
  int ncnt=0;
  for(auto i:vs[root].nexts){
    if(pre==es[i].to){
      continue;
    }
    
    DFS(es[i].to,depth+es[i].length,root,ncnt);
  }
  return;
}
struct operatedata{
  int num;
  int prenum;
  ll depth;
  ll cnt;
};
ll a,b;
deque<operatedata> opera;
vi past;
int tmpdepthmax=0;
void BFS(int ini){
  opera.clear();
  opera.pb({ini,-1,0,0});
  int pre=-1;
  while(opera.size()!=0){
   // cout<<"e";
    int root=opera.front().num;
    int pre=opera.front().prenum;
    ll depth=opera.front().depth;
    opera.pop_front();
    if(root==b){
      continue;
    }
    //ここにやりたい処理を書く
    for(int i:vs[root].nexts){
      if(es[i].to==pre){
        continue;
      }
      if(vs[es[i].to].len<es[i].length+vs[root].len){
        continue;
      }else if(vs[es[i].to].len==es[i].length+vs[root].len){
        vs[es[i].to].cnt+=vs[root].cnt;
        vs[es[i].to].cnt%=d9_7;
      }else{
        vs[es[i].to].cnt=vs[root].cnt;
        vs[es[i].to].len=es[i].length+vs[root].len;
        opera.push_back({es[i].to,root,depth+es[i].length,vs[root].cnt});
      }
    }
  }
  return;
}

int main(void){
  ll n;
  cin>>n;
  vl a(n*3);
  rep(i,n*3)cin>>a[i];
  priority_queue<ll,vl,greater<ll>> l;
  priority_queue<ll> r;
  ll lsum=0;
  ll rsum=0;
  ll ans=llMIN;
  rep(i,n){
    lsum+=a[i];
    l.push(a[i]);
  }
  rep(i,n){
    rsum+=a[i+n*2];
    r.push(a[i+n*2]);
  }
  ll rsum2=0;
  vl rnums(n);
  rnums[n-1]=rsum;
  rep(i,n-1){
    if(r.top()>a[2*n-1-i]){
      rsum-=r.top();
      rsum+=a[2*n-1-i];
      rnums[n-i-1-1]=rsum;
      r.pop();
      r.push(a[2*n-1-i]);
    }else{
    rnums[n-1-i-1]=rsum;
    }
  }
  //Printvector(rnums);
  rsum2=rsum;
    if(r.top()>a[n]){
      rsum2-=r.top();
      rsum2+=a[n];
    }
    ans=lsum-rsum2;
  //cout<<ans<<endl;
   //Printvector(rnums);
  rep(i,n){
    if(l.top()<a[i+n]){
      //cout<<l.top()<<" "<<a[i+n]<<endl;
      lsum-=l.top();
      lsum+=a[i+n];
      l.pop();
      l.push(a[i+n]);
    }
    
    ans=max(lsum-rnums[i],ans);
  }
  cout<<ans<<endl;
  return 0;

}


Measured memory_bytes: 20852