main :: IO ()
main = do
  ls <- getNums <$> getLine
  let a = head ls
  let b = last ls
  let msg =  if (a == 1)
                  then if (b == 1)
                       then "Draw"
                       else "Alice"
                  else if (b == 1)
                       then "Bob"
                       else if (a == b)
                            then "Draw"
                            else if (a < b)
                            then "Bob"
                            else "Alice"
  putStrLn msg
  
getNums :: String -> [Int]
getNums = map read . words
