main::IO()
main = do
  abc<-getLine
  let x:y:[]=map read  (words abc)::[Int]
  putStr ((solver x y)++"\n")

solver::Int->Int->String
solver x y = let a = mod (x-2) 13 in
             let b = mod (y-2) 13 in
             if a == b then "Draw" else if a>b then "Alice" else "Bob"
