import Data.List

main = do
    [x,y,z,k] <- (map read . words) <$> getLine :: IO [Int]
    as <- (map read . words) <$> getLine
    bs <- (map read . words) <$> getLine 
    cs <- (map read . words) <$> getLine
    mapM_ print $ take k $ sortBy (flip compare) [a+b+c | a<-as, b<-bs, c<-cs]
