import Control.Applicative ((<$>), (<*>))
import Control.Monad
import Data.List

main :: IO ()
main = do
  solve <$> getl (map read . words) >>= putStrLn

solve :: [Int] -> String
solve [a, b]
  | a == b = "Draw"
  | a == 1 = "Alice"
  | b == 1 = "Bob"
  | a > b = "Alice"
  | otherwise = "Bob"

getl :: (String -> a) -> IO a
getl f = f <$> getLine

