#!/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
  foreach c [split $pass {}] {
    if {$c eq $char} {incr n}
  }
  if {$n >= $min && $n <= $max} {incr good}
}
puts $good