program detalki_na_sklade;
type det=record
           name:string[10];
           material:string[10];
           cost:integer;
           god:integer;
        end;

var a:array[1..1000]of det;
   n,i:integer;
   cou,z:integer;
   x,y:integer;

begin
  read(n);
  for i:=1 to n do
     with a[i] do
     begin
        readln(name);
        readln(material);
        readln(cost,god);
     end;
  readln(z);
  readln(x,y);
  cou:=0;
  for i:=1 to n do
     with a[i] do
        if (material = 'chugun') and (cost < z)  and (god >= x) and (god <= y) then
           inc(cou);
  writeln(cou);
end.