import Control.Applicative
import Data.List

getIntList = fmap read . words <$> getLine

getIntCont = fmap read . lines <$> getContents

main = print =<< sol <$> getIntList <*> getIntCont

sol :: [Int] -> [Int] -> Int
sol [_, a, b] = foldl' (\s t -> if t < a || t >= b then s+1 else s) 0 
