uses crt;
var s, res, ans, calc, rel: string;
    i: Longint;
begin
clrscr;
    readln(s);

    for i:=1 to length(s) do 
        begin
            if s[i] in ['0'..'9'] then
                res:=res + s[i]
            else if s[i] in ['a'..'z'] then
                ans:=ans + s[i]
            else if s[i] in ['A'..'Z'] then
                calc:=calc + s[i]
            else
                rel:=rel + s[i];
        end;

    writeln(res);
    writeln(ans);
    writeln(calc);
    writeln(rel);
readln;
end.

uses crt;
var s,cs,cct,cch,ccl:ansistring;
    i:longint;
begin
clrscr;
readln(s);
for i := 1 to length(s) do
 begin
  if s[i] in ['0'..'9'] then cs := cs + s[i];
  if s[i] in ['a'..'z'] then cct := cct + s[i];
  if s[i] in ['A'..'Z'] then cch := cch + s[i];
  if not (s[i] in ['0'..'9']) and not (s[i] in ['a'..'z'])
  and not (s[i] in ['A'..'Z']) and (s[i] <> #32)
  then ccl := ccl + s[i];
 end;
writeln('Chuoi so: ',cs);
writeln('Chuoi chu thuong: ',cct);
writeln('Chuoi chu hoa: ',cch);
writeln('Chuoi con lai: ',ccl);
readln;
end.