import Data.List

main = do
 [[x,y,a,b,c],p,q,r] <- map (map (read :: String -> Int) .words  ). lines <$> getContents
 print .sum.take (x+y) .reverse.sort $ (drop (a-x) $ sort p)  ++r++ (drop (b-y) $ sort q )
