import Control.Applicative

main = do
  	[a,b] <- words <$> getLine
	putStrLn $ fx a b

trump = ["2","4","5","6","7","8","9","10","11","12","13","1"]

fx a b 
	| (f a) > (f b) = "Alice" 
	| (f a) < (f b) = "Bob"
	| otherwise = "Draw"

f a = ff 0 a

ff n a = if (trump !! n) == a then (n+1) else ff (n+1) a