import           Control.Monad
import qualified Data.ByteString.Char8 as BS
import           Data.Foldable
import           Data.Maybe
import qualified Data.Sequence         as Seq

readInt = fst . fromJust . BS.readInt
readIntList = map readInt . BS.words
getInt = readInt <$> BS.getLine
getIntList = readIntList <$> BS.getLine

main = do
  [x, y, a, b, c] <- getIntList
  ps <- getIntList
  qs <- getIntList
  rs <- getIntList

  let ps' = Seq.take x $ Seq.unstableSortBy (flip compare) $ Seq.fromList ps
      qs' = Seq.take y $ Seq.unstableSortBy (flip compare) $ Seq.fromList qs
      ss = ps' Seq.>< qs' Seq.>< Seq.fromList rs
      ans = sum $ Seq.take (x+y) $ Seq.unstableSortBy (flip compare) ss

  print ans