{-# LANGUAGE ScopedTypeVariables, LambdaCase #-}

import qualified Data.List as List
import qualified Data.Set as Set

main :: IO ()
main = do
    [a, b] <- map read . words <$> getContents
    let winner = case (a, b) of 
                    (c, d) | c == d -> "Draw"
                    (1, _)          -> "Alice"
                    (_, 1)           -> "Bob"
                    _               -> if a > b then "Alice" else "Bob"
    putStrLn winner