import Control.Applicative

main :: IO ()
main = do
  [b,c] <- map read . words <$> getLine
  putStrLn $ solve b c

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