      PROGRAM piyo
      IMPLICIT NONE
      integer(16) :: h,a,counter
      
      read*,h,a
      counter = 0
      
      do while( .true. )
        h = h - a
        counter = counter + 1
        if( h<= 0 ) exit
      end do
      
      print*,counter
      
      
      
      
      
      
      END PROGRAM