import Data.List

xs :: [String]
xs = ["2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "1"]

main :: IO ()
main = do
    [ia, ib] <- map (\e -> elemIndex e xs) <$> words <$> getLine
    putStrLn $ if ia > ib
                  then "Alice"
                  else if ia < ib
                          then "Bob"
                          else "Draw"

