	Imports System.Collections.Generic
	Imports System.Console
	Module Program
	    Sub Main()
	        Dim tmp As String() = Split(Console.ReadLine())
	        Dim a As Integer = tmp(0)
	        Dim b As Integer = tmp(1)
	        If a = 1 Then
	          a+=13
	        End If
	        If b = 1 Then
	          b+=13
	        End If
	        Dim res As String = "Draw"
	        If a>b Then
	           res = "Alice"
	        ElseIf a<b Then
	           res = "Bob"
	        Else
	           res = "Draw"
	        End If
	        Console.WriteLine(res)
	    End Sub
	End Module
