import Control.Applicative
import Control.Monad
import Data.List
import Data.Monoid

divCeil x y = (x+y-1) `div` y

main = map read . words <$> getLine >>= \[a, b] -> print $ divCeil b a