open System

let n =
    stdin.ReadLine().Split()
    |> Array.head
    |> int

let arr =
    Array.init n (
        fun _ -> stdin.ReadLine().Split()
    )

let isKizetu (xs: string[]) =
    xs.[0].[..3] <> "oooo" && int xs.[1] >= 1200

arr
|> Array.filter isKizetu
|> Array.length
|> printfn "%d"