let n, a, b = Scanf.scanf " %d %d %d" @@ fun a b c -> a, b, c
let ts = Array.init n @@ fun _ -> Scanf.scanf " %d" (+) 0
let _ = Array.fold_left (fun c t -> if a <= t && t < b then c else c + 1) 0 ts |> Printf.printf "%d\n"