import Control.Applicative
import Data.List
 
main :: IO ()
main = inputOutput
 
inputOutput :: IO ()
inputOutput = do
  [n, d] <- map read <$> words <$> getLine
  ls     <- map read <$> lines <$> getContents
  let (ps, ms0) = splitAt n ls
      ms = take d ms0
  putStrLn $ unlines $ map show $ map (maxPair ps) ms
 
maxPair :: [Int] -> Int -> Int
maxPair xxs p = f 0 =<< reverse $ sort xxs
  where
    f r (x:xs) (y:ys)
      | x == y    = r
      | l > p     = f r xs (y:ys)
      | otherwise = f (max l r) (x:xs) ys
        where l = x + y
    f r _      _  = r
 

aW1wb3J0IENvbnRyb2wuQXBwbGljYXRpdmUKaW1wb3J0IERhdGEuTGlzdAoKbWFpbiA6OiBJTyAoKQptYWluID0gaW5wdXRPdXRwdXQKCmlucHV0T3V0cHV0IDo6IElPICgpCmlucHV0T3V0cHV0ID0gZG8KICBbbiwgZF0gPC0gbWFwIHJlYWQgPCQ+IHdvcmRzIDwkPiBnZXRMaW5lCiAgbHMgICAgIDwtIG1hcCByZWFkIDwkPiBsaW5lcyA8JD4gZ2V0Q29udGVudHMKICBsZXQgKHBzLCBtczApID0gc3BsaXRBdCBuIGxzCiAgICAgIG1zID0gdGFrZSBkIG1zMAogIHB1dFN0ckxuICQgdW5saW5lcyAkIG1hcCBzaG93ICQgbWFwIChtYXhQYWlyIHBzKSBtcwoKbWF4UGFpciA6OiBbSW50XSAtPiBJbnQgLT4gSW50Cm1heFBhaXIgeHhzIHAgPSBmIDAgPTw8IHJldmVyc2UgJCBzb3J0IHh4cwogIHdoZXJlCiAgICBmIHIgKHg6eHMpICh5OnlzKQogICAgICB8IHggPT0geSAgICA9IHIKICAgICAgfCBsID4gcCAgICAgPSBmIHIgeHMgKHk6eXMpCiAgICAgIHwgb3RoZXJ3aXNlID0gZiAobWF4IGwgcikgKHg6eHMpIHlzCiAgICAgICAgd2hlcmUgbCA9IHggKyB5CiAgICBmIHIgXyAgICAgIF8gID0gcgo=

NCAzCjgwMDAKNDAwMAo5MDAwCjYwMDAKMzAwMAoxNDAwMAoxMDAwMA==

4 3
8000
4000
9000
6000
3000
14000
10000