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
  let ab = take k $ sortBy (flip compare) [a+b| a <- as, b <- bs]
      abc = take k $ sortBy (flip compare) [ab+c| ab <- ab, c <- cs]
  mapM_ print abc