import Control.Monad
import Data.List
main = do
  [x,y,z,k] <- map read . words <$> getLine :: IO [Int]
  as <- map read . words <$> getLine :: IO [Int]
  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])