main = getContents >>= print . solve . map read . lines solve :: [Double] -> Int solve [k, s] = truncate $ 100.0 * s / (100.0 - k)