import Control.Monad

answer = [20104,20063,19892,20011,19874,20199,19898,20163,19956,19841]

main = do
  (x:_:xs) <- getLine
  let muwi = flip map ['0'..'9'] $ \z -> length $ filter (== z) (x:xs)
      diff = zip [0..] $ zipWith (-) muwi answer
      o1 = head $ [a | (a,b) <- diff, b > 0]
      o2 = head $ [a | (a,b) <- diff, b < 0]
  putStrLn $ show o1 ++ " " ++ show o2