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
 let xy = take k$reverse(sort [x+y|x<-xn,y<-yn])
 mapM_ print$take k$reverse(sort [s+z|s<-xy,z<-zn])