import Control.Monad
import Data.List

main = do
    [x,y,z,k] <- (map read . words) <$> getLine
    [a,b,c] <- replicateM 3 $ map read . words <$> getLine
    let d = take k $ sortBy (flip compare) ((+) <$> a <*> b)
    mapM_ print $ take k $ sortBy (flip compare) ((+) <$> d <*> c)