main = getLine >>= print . solve . read solve :: Double -> Double solve n = m * 100.0 / (n' + m) where m = (1000000.0 - 100.0 * n) * 0.01 n' = 99.0 * n