import Data.Ratio

main = do
 [a,b] <- map read . words <$> getLine :: IO [Integer]
 let r = score (a%1) (b%1)
 print $ div (numerator r) (denominator r)

score n k = 50 * n + (50*n) / ((8%10)+(2%10)*k)