import Data.List
main=do
 [x,y,z,k]<-map read.words<$>getLine
 xn<-map read.words<$>getLine
 yn<-map read.words<$>getLine
 zn<-map read.words<$>getLine
 mapM_ print$let xy = take k (sortBy (flip compare) [x+y|x<-xn,y<-yn]) in take k (sortBy (flip compare) [s+z|s<-xy,z<-zn])