import Data.List ((\\))

main :: IO ()
main = do
  [a, b] <- (map read . words) <$> getLine
  print $ solve a b

solve :: Int -> Int -> Int
solve a b = length $ [23 .. 25] \\ [a .. b]