program one_card_poker
  implicit none
  integer :: a, b, c(13)
  c = (/13,1,2,3,4,5,6,7,8,9,10,11,12/)
  read(*,*) a, b
  if (c(a).gt.c(b)) then
    write(*,'(a)') 'Alice'
  else if (c(a).lt.c(b)) then
    write(*,'(a)') 'Bob'
  else
    write(*,'(a)') 'Draw'
  end if
end program one_card_poker