program operatii;
var n,i,a,max,op,min: longint;
f: text;
begin
     assign(f,'operatii.in');
     reset(f);
     readln(f,n);
     min:=maxlongint;
     for i:=1 to n do
     begin
          read(f,a);
          if min>a then min:=a;
     end;
     close(f);
     assign(f,'operatii.in');
     reset(f);
     read(f,n);
     for i:=1 to n do
     begin
         read(f,a);
         if a>max then
            max:=a;
         if a=min then
         begin
              op:=op+max-min;
              max:=min;
         end;
     end;
     op:=op+max-min;
     close(f);
     assign(f,'operatii.out');
     rewrite(f);
     write(f,op);
     close(f);
end.