main :: IO ()
main = do
    x <- map read . words <$> getLine :: IO [Int]
    let a = if head x == 1 then 14 else head x
        b = if last x == 1 then 14 else last x
    putStrLn $ if a == b then "Draw" else if a > b then "Alice" else "Bob"
