program sample
	implicit none
    integer ::a,b
    
    read(*,*) a,b
    if (a /=1 .and. b/=1) then
    	if (a<b) then
        	write(*,*) 'Bob'
        else if (b<a) then
        	write(*,*) 'Alice'
        else
        	write(*,*) 'Draw'
        end if
    else
    	if(a==1 .and. b==1) then
        	write(*,*) 'Draw'
        else if(a==1 .and. b/=1) then
    		write(*,*) 'Alice'
        else
        	write(*,*) 'Bob'
        end if
    end if
    stop
end program sample