import Control.Applicative

main = do
  [a, b] <- map read . words <$> getLine
  putStrLn $ solve a b

solve :: Int -> Int -> String
solve a b
  | a == 1 && b == 1 = "Draw"
  | a == 1           = "Alice"
  | b == 1           = "Bob"
  | a > b            = "Alice"
  | a < b            = "Bob"
  | otherwise        = "Draw"