import System.IO (hFlush, stdout)
import Control.Monad (unless)

main :: IO ()
main = do
  putStrLn "0 0"
  hFlush stdout
  d1 <- readLn
  unless (d1 == 0) $ do
    putStrLn "100000 0"
    hFlush stdout
    d2 <- readLn
    unless (d2 == 0) $ do
      let ay = (d1 + d2 - 100000) `div` 2
      let ax = d1 - ay
      putStrLn $ unwords $ map show $ [ax, ay]
      hFlush stdout
      getLine
      return ()