#!/usr/bin/env tclsh

set good 0
while {[gets stdin line] >= 0} {
  if {[scan $line {%d-%d %[^:]: %s} min max char pass] != 4} continue
  set n 0
  if {[string index $pass [expr {$min-1}]] eq $char} {incr n}
  if {[string index $pass [expr {$max-1}]] eq $char} {incr n}
  if {$n == 1} {incr good}
}
puts $good