import Data.Ord

main = interact $ put . sol . get

get = fmap read . words

put GT = "Alice"
put LT = "Bob"
put EQ = "Draw"

sol :: [Int] -> Ordering
sol [1,1] = EQ
sol [1,_] = GT
sol [_,1] = LT
sol [a,b] = compare a b
