import Data.List

sort' :: Ord v => [v] -> [v]
sort' = sortBy $ flip compare

main :: IO ()
main = do
    [x, y, _, _, _] <- map (read :: String -> Int) . words <$> getLine
    p <- map (read :: String -> Integer) . words <$> getLine
    q <- map (read :: String -> Integer) . words <$> getLine
    r <- map (read :: String -> Integer) . words <$> getLine
    print . sum . take (x+y) . sort' $ take x (sort' p) ++ take y (sort' q) ++ r