main::IO ()

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

judge:: Integer -> Integer -> String
judge 1 13 = "Alice"
judge 13 1 = "Bob"
judge a b | a > b   = "Alice"
          | a < b   = "Bob"
          | otherwise = "Draw"
