import Control.Applicative

f a b 
	| mod b a == 0 = div b a
	| otherwise = (div b a) +1

main = do
  [a,b] <- (map read . words) <$> getLine
  putStrLn . show $ f a b