let split_on_char sep (s : string) =
    let rec rindex (i: int) =
        if i < 0 then
            None
        else
            if s.[i] = sep then
                Some i
            else
                rindex (i - 1) in
    let rec loop i result =
        match rindex (i - 1) with
          Some ii -> loop ii (String.sub s (ii + 1) (i - 1 - ii) :: result)
        | None -> (String.sub s 0 i) :: result in
    loop (String.length s) []

let ord s = 
    match int_of_string s with
            1 -> 14
        |   n -> n

let main =
    let a = read_line () in
    let x = split_on_char ' ' a in 
      let v = match x with
        [a; b] ->
      (match compare (ord a) (ord b) with
        1 -> "Alice"
        | 0 -> "Draw"
        | -1 -> "Bob" )
        | _ -> "" in 
        print_endline v
