import Control.Applicative

main :: IO ()
main = do
  [b,c] <- map read . words <$> getLine
  print $ solve b c

bmiTell :: Double -> Double -> String
bmiTell weight height
  | weight / height ^ 2 <= 18.5 = "You're underweight, you emo, you!"
  | weight / height ^ 2 <= 25.0 = "You're supposedly normal.\
                   \ Pffft, I bet you're ugly!"
  | weight / height ^ 2 <= 30.0 = "You're fat! Lose some weight, fatty!"
  | otherwise = "You're a whale, congratulations!"

-- 順序の付いた値のリストを受け取り、その中で一番大きな値を返す
maximum' :: (Ord a) => [a] -> a
maximum' [] = error "maximum of empty list"
maximum' [x] = x
maximum' (x:xs) = max x (maximum' xs)

replicate' :: Int -> a -> [a]
replicate' 0 _ = []
replicate' i n = n : replicate' (i-1) n

solve :: Int -> Int -> String
solve a b
  | a == 1 && b >= 2 = "Alice"
  | a >= 2 && b == 1 = "Bob"
  | a <= 13 && b <= 13 && a < b = "Bob"
  | a <= 13 && b <= 13 && a > b = "Alice"
  | otherwise = "Draw"