import Control.Applicative

f :: Int -> Int -> String
f x y
  | x == y    = "Draw"
  | x == 1    = "Alice"
  | y == 1    = "Bob"
  | x > y     = "Alice"
  | x < y     = "Bob"
  | otherwise = "Alice"

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