program diaper;
const
MAXN = 100;
var
K, N, i, milk, food : LongInt;
F : array[0..MAXN-1] of longint;
B : array[0..MAXN-1] of char; (*per il carattere blank tra il numero e il tipo di pasto*)
T : array[0..MAXN-1] of char;
begin
(*assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);*)
ReadLn(N);
for i:=0 to N-1 do readln (F[i],B[i],T[i]);
K := 0; milk:=0; food:=0;
for i:=0 to N-1 do
begin
if T[i]='M' then milk:=milk +F[i];
if T[i]='B' then food:=food +F[i];
if milk>=50 then begin if i<N-1 then begin K:=K+1; milk:=milk-50;end; end
else
if food>=80 then begin if i<N-1 then begin K:=K+1; food:=food-80;end; end;
end;
WriteLn(K);
end.
cHJvZ3JhbSBkaWFwZXI7Cgpjb25zdAogICAgTUFYTiA9IDEwMDsKCnZhcgogICAgSywgTiwgaSwgbWlsaywgZm9vZCA6IExvbmdJbnQ7CiAgICBGIDogYXJyYXlbMC4uTUFYTi0xXSBvZiBsb25naW50OwogICAgQiA6IGFycmF5WzAuLk1BWE4tMV0gb2YgY2hhcjsgKCpwZXIgaWwgY2FyYXR0ZXJlIGJsYW5rIHRyYSBpbCBudW1lcm8gZSBpbCB0aXBvIGRpIHBhc3RvKikKICAgIFQgOiAgYXJyYXlbMC4uTUFYTi0xXSBvZiBjaGFyOwpiZWdpbgoKICAgICgqYXNzaWduKGlucHV0LCAgJ2lucHV0LnR4dCcpOyAgcmVzZXQoaW5wdXQpOwogICAgYXNzaWduKG91dHB1dCwgJ291dHB1dC50eHQnKTsgcmV3cml0ZShvdXRwdXQpOyopCgoKICAgIFJlYWRMbihOKTsKCiAgICBmb3IgaTo9MCB0byBOLTEgZG8gIHJlYWRsbiAoRltpXSxCW2ldLFRbaV0pOwogICAgICAgICAgICAgICAgICAgICAKICAgIEsgOj0gMDsgbWlsazo9MDsgZm9vZDo9MDsKCiAgICBmb3IgaTo9MCB0byBOLTEgZG8KICAgICAgICAgIGJlZ2luCiAgICAgICAgICAgIGlmIFRbaV09J00nIHRoZW4gbWlsazo9bWlsayArRltpXTsKICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICBpZiBUW2ldPSdCJyB0aGVuIGZvb2Q6PWZvb2QgK0ZbaV07CiAgICAgICAgICAgIAogICAgICAgICAgICBpZiBtaWxrPj01MCB0aGVuIGJlZ2luIGlmIGk8Ti0xIHRoZW4gYmVnaW4gSzo9SysxOyBtaWxrOj1taWxrLTUwO2VuZDsgZW5kCiAgICAgICAgICAgICAgICAgICAgICAgIGVsc2UKICAgICAgICAgICAgICAgICAgICAgICAgICBpZiBmb29kPj04MCB0aGVuIGJlZ2luIGlmIGk8Ti0xIHRoZW4gYmVnaW4gSzo9SysxOyBmb29kOj1mb29kLTgwO2VuZDsgZW5kOwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICBlbmQ7ICAgICAgICAgICAgICAgICAgICAKCiAgICBXcml0ZUxuKEspOwoKZW5kLg==