countPoints :: Integral a => a -> a -> a
countPoints d1 d2
    | 2 * d1 < d2 = 0
    | 2 * d1 == d2 = 4
    | d2 < 2 * d1 && d1 < d2 = 8
    | d1 == d2 = 4
    | otherwise = 0


main :: IO ()
main = do
    [d1, d2] <- fmap read . words <$> getLine :: IO [Int]
    print $ countPoints d1 d2