import Control.Monad

main = do
    [a,b] <- map read.words<$> getLine :: IO [Int]
    putStrLn $ case (((a+12)`mod`14) , ((b+12)`mod`14)) of
        (a,b) | a>b -> "Alice"
        (a,b) | a<b -> "Bob"
        otherwise -> "Draw"
