main :: IO ()
main = do
  readLn >>= putStrLn . unwords . map show . solve' 


solve' :: Integer -> [Integer]
solve' s = [0, 0, 10^9, 1, x, y] 
  where
    ans = [0, 0, 10^9, 1, x, y] 
    (b, a) = quotRem s (10^9)
    x = 10^9 - a
    y = b + 1
