const
q = ['B','C','D','F','G','H','J','K','L','M','N','P','Q','R','S','T','V','W','X','Y','Z',
'b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','y','z'];
var
s: set of char;
c: char;
begin
s := [];
read(c);
while c <> '.' do
begin
if c in q then
s := s + [c];
read(c);
end;
for c := 'A' to 'z' do
if c in s then
write(c);
end.
Y29uc3QgCiAgcSA9IFsnQicsJ0MnLCdEJywnRicsJ0cnLCdIJywnSicsJ0snLCdMJywnTScsJ04nLCdQJywnUScsJ1InLCdTJywnVCcsJ1YnLCdXJywnWCcsJ1knLCdaJywKICAgICAgICdiJywnYycsJ2QnLCdmJywnZycsJ2gnLCdqJywnaycsJ2wnLCdtJywnbicsJ3AnLCdxJywncicsJ3MnLCd0JywndicsJ3cnLCd4JywneScsJ3onXTsKdmFyCiAgczogc2V0IG9mIGNoYXI7CiAgYzogY2hhcjsKYmVnaW4KICBzIDo9IFtdOwogIHJlYWQoYyk7CiAgd2hpbGUgYyA8PiAnLicgZG8KICBiZWdpbgogICAgaWYgYyBpbiBxIHRoZW4KICAgICAgcyA6PSBzICsgW2NdOwogICAgcmVhZChjKTsKICBlbmQ7CiAgZm9yIGMgOj0gJ0EnIHRvICd6JyBkbwogICAgaWYgYyBpbiBzIHRoZW4KICAgICAgd3JpdGUoYyk7CmVuZC4=