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

solve :: [Int] -> String
solve [a, b]
    | ax > bx = "Alice"
    | ax < bx = "Bob"
    | otherwise = "Draw"
    where
        ax = f a
        bx = f b
        f x
            | x == 1 = 14
            | otherwise = x
