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

solve a' b' | a > b = "Alice"
            | a < b = "Bob"
            | otherwise = "Draw"
    where a = (a' + 11) `mod` 13
          b = (b' + 11) `mod` 13