uses CRT ;
var
    fIn : text ;
    sIn : string ;
    c : char ;
begin
    sIn := 'data.in' ;
    assign(fIn, sIn) ;
    reset(fIn) ;
    while not EOF(fIn) do
    begin
        read(fIn, c) ;
        if (uppercase(c) >= 'A') and (uppercase(c) <= 'Z') then
            write(c) ;
    end ;
    close(fIn) ;
end.