import Data.List

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