main :: IO()
main = do
    [a,b] <- map read . words <$> getLine
    putStrLn $ getsolve a b
    
getsolve :: Int -> Int -> String
getsolve 1 1 = "Draw"
getsolve 1 _ = "Alice"
getsolve _ 1 = "Bob"
getsolve a b
    | a > b			= "Alice"
    | a < b			= "Bob"
    | otherwise		= "Draw"