module Main where
 
main :: IO ()
main = getIntList >>= putStrLn . solve
 
solve :: [Int] -> String
solve ab = unwords $ map show [x, y]
  where
  [a, b] = ab
  x = 10 - a
  y = b - x
 
getIntList :: IO [Int]
getIntList = map read . words <$> getLine