main = getLine >>= putStrLn . solve . map read . words

solve :: [Int] -> String
solve (a:b:_)
  | (a + 11) `mod` 13 < (b + 11) `mod` 13 = "Bob"
  | (a + 11) `mod` 13 > (b + 11) `mod` 13 = "Alice"
  | otherwise = "Draw"
 