main = do
 [a,b] <- map ((\x -> if x==1 then maxBound else x) . read) . words <$> getLine :: IO [Int]
 let t = [(GT,"Alice"),(EQ,"Draw"),(LT,"Bob")]
 putStrLn $ maybe undefined id $ lookup (compare a b) t