import Data.List

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

