var 
    n, m, x, y, t1, t2, countA, countB: integer;
    z: string;
    arrayA: array [1..500,1..2] of integer;
    arrayB: array [1..500,1..2] of integer;
    sum, countSumA: integer;
    f: text;
begin
    assign(f,'C:\26.txt');
    reset(f);
    readln(f, n, m);
    countA := 0;
    countB := 0;
    sum := 0;
    for i: integer := 1 to m do begin
        if not eof(f) then
            readln(f, x, y, z)
        else break;
        if z.Contains('A') then begin
            arrayA[i,1] := x;
            arrayA[i,2] := y;
            countA := countA + 1;
        end;
        if z.Contains('B') then begin
            arrayB[i,1] := x;
            arrayB[i,2] := y;
            countB := countB + 1;
        end;
    end;
    for i:integer := 1 to n do
        for j:integer := i + 1 to n do 
            if arrayA[i,1] > arrayA[j,1] then begin
                t1 := arrayA[i,1];
                t2 := arrayA[i,2];
                arrayA[i,1] := arrayA[j,1];
                arrayA[i,2] := arrayA[j,2];
                arrayA[j,1] := t1;
                arrayA[j,2] := t2;
            end;
    for i:integer := 1 to n do
        for j:integer := i + 1 to n do 
            if arrayB[i,1] > arrayB[j,1] then begin
                t1 := arrayB[i,1];
                t2 := arrayB[i,2];
                arrayB[i,1] := arrayB[j,1];
                arrayB[i,2] := arrayB[j,2];
                arrayB[j,1] := t1;
                arrayB[j,2] := t2;
            end;
    for i:integer := n-countB+1 to n do
        for j:integer := 1 to arrayB[i,2] do
            if (sum + arrayB[i,1]) < m then
                sum := sum + arrayB[i,1]
            else break;
    for i:integer := n-countA+1 to n do
        for j:integer := 1 to arrayA[i,2] do
            if (sum + arrayA[i,1]) < m then begin
                sum := sum + arrayA[i,1];
                countSumA := countSumA + 1;
            end
            else break;
    writeln(countSumA, ' ', m - sum);
end.