readInts :: IO [Int]
readInts = fmap (map read . words) getLine

main = do
  [a, b] <- readInts
  print $ length $ filter (\d -> d < a || d > b) [23..25]