import Data.List

solve :: [Int] -> [Int] -> String
solve x [a,b]
  | elemIndex a x > elemIndex b x = "Alice"
  | elemIndex a x < elemIndex b x = "Bob"
  | otherwise = "Draw"

main = getLine >>= putStrLn . solve ([2..13] ++ [1]) . map read . words