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) [x + y | x <- a, y <- b]
    mapM_ print (take k $ sortBy (flip compare) [x + y | x <- d ,y <- c])