import Data.List (elemIndex)
import Data.Maybe (fromJust)

cards :: [Int]
cards = [2 .. 13] ++ [1]

main :: IO ()
main = do
    [a, b] <- fmap read . words <$> getLine :: IO [Int]
    let i = fromJust $ elemIndex a cards
    let j = fromJust $ elemIndex b cards
    putStrLn $ f $ i - j
    where
        f x
            | x > 0 = "Alice"
            | x < 0 = "Bob"
            | otherwise = "Draw"
