import qualified Data.ByteString.Char8 as BS
import Control.Monad
import Data.Maybe (fromJust)
import Debug.Trace

solve :: Integer -> Integer -> String
solve a b
    | aa > bb = "Alice"
    | aa < bb = "Bob"
    | otherwise = "Draw"
    where
        calc = \x -> (if x == 1 then 14 else x)
        aa = calc a
        bb = calc b

main :: IO ()
main = do
    (a:b:_) <- map (fst . fromJust . BS.readInteger) . BS.words <$> BS.getLine
    putStrLn $ solve a b