import Control.Applicative
import Control.Monad
import Data.List

poker :: Int -> Int -> Ordering
poker x y
    | all (/= 1) [x, y] = x `compare` y
    | otherwise =
        case (x, y) of
            (1, 1) -> EQ
            (_, 1) -> LT
            (1, _) -> GT

main :: IO ()
main = do
    [a, b] <- fmap read . words <$> getLine :: IO [Int]
    case a `poker` b of
        LT -> putStrLn "Bob"
        EQ -> putStrLn "Draw"
        GT -> putStrLn "Alice"