import Control.Applicative

num n =
  case n of
  1 -> 13
  _ -> n - 1

main = do
  [a, b] <- words <$> getLine
  solve (num $ toInt a) (num $ toInt b)
  where
    toInt :: String -> Int
    toInt = read
    solve a b
      | a < b = putStrLn "Bob"
      | a > b = putStrLn "Alice"
      | otherwise = putStrLn "Draw"
