let split_string ?(pattern=" ") = Str.split @@ Str.regexp pattern

let (x, y, a, b, c) = Scanf.sscanf (read_line ()) "%d %d %d %d %d" @@ fun x y a b c -> (x, y, a, b, c)
let p = Array.of_list @@ List.map int_of_string @@ split_string @@ read_line ()
let q = Array.of_list @@ List.map int_of_string @@ split_string @@ read_line ()
let r = Array.of_list @@ List.map int_of_string @@ split_string @@ read_line ()

let rev a b = b - a

let () =
  Array.sort rev p;
  Array.sort rev q;
  let t = Array.concat [(Array.sub p 0 x); (Array.sub q 0 y); r] in
  Array.sort rev t;
  print_int @@ Array.fold_left (+) 0 (Array.sub t 0 (x + y));
  print_newline ()