import Data.List
import Data.Maybe

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

main :: IO ()
main = do
  [a, b] <- map read . words <$> getLine
  let seq = [2..13] ++ [1]
  putStrLn $ solve (fromJust $ elemIndex a seq) (fromJust $ elemIndex b seq)