import Control.Applicative

main = do
  [a, b] <- words <$> getLine
  solve (toInt a) (toInt b)
  where
    toInt :: String -> Int
    toInt = read
    solve a b
      | a < b = putStrLn "Alice"
      | a > b = putStrLn "Bob"
      | otherwise = putStrLn "Draw"
