myCeiling :: Int -> Int -> Int
myCeiling b a = ceiling $ fromIntegral a / fromIntegral b

main :: IO ()
main = readLn >>= print . myCeiling 2