var
    N, E, L, P, Q, i    : longint;
    t                   : char;
    fr, fw              : text;

begin
    assign(fr, 'input.txt');
    assign(fw, 'output.txt');
    reset(fr);
    rewrite(fw);
    readln(fr, N, E, L);
    for i:=0 to E-1 do begin
        read(fr, P, t, t);
        if t = 'f' then readln(fr, Q)
        else begin
            assert(t='e');
            readln(fr);
        end;
        (* insert your code here *)
    end;

    writeln(fw, 42); (* printing solution *)
    close(fr);
    close(fw);
end.