import qualified Data.Text as T
import qualified Data.Text.IO as T
import qualified Data.Text.Read as T
import Data.List (sortBy)

main :: IO ()
main = do
  (x : y : a : b : c : _) <- map unsafeTextToInt . T.words <$> T.getLine :: IO [Int]
  ps <- sortBy (flip compare) . map unsafeTextToInt . T.words <$> T.getLine :: IO [Int]
  qs <- sortBy (flip compare) . map unsafeTextToInt . T.words <$> T.getLine :: IO [Int]
  rs <- sortBy (flip compare) . map unsafeTextToInt . T.words <$> T.getLine :: IO [Int]
  let
    ss = rs >< take x ps >< take y qs :: [Int]
  print . sum . take (x + y) $ ss

(><) :: [Int] -> [Int] -> [Int]
[] >< ys = ys
xs >< [] = xs
xs@(x : xs') >< ys@(y : ys') | x < y     = y : (xs >< ys')
                             | otherwise = x : (xs' >< ys)
infixr 5 >< 

unsafeTextToInt :: T.Text -> Int
unsafeTextToInt s = case T.signed T.decimal s of
  Right (n, _) -> n
