import Control.Applicative

main :: IO ()
main = do
    [a, b] <- map read . words <$> getLine
    putStrLn $ solve a b 
    
solve :: Int -> Int -> String
solve a b = if a == b then "Draw" 
            else if a == 1 then "Alice" 
            else if b == 1 then "Bob"
            else if a > b then "Alice" 
            else "Bob"