uses crt;
var s,s1,s2,s3,s4:string; i:longint;
begin
clrscr;
read(s); readln;
writeln;
for i:=1 to length(s) do
begin
if s[i] in ['A'..'Z'] then s1:=s1+s[i]
else if s[i] in ['a'..'z'] then s2:=s2+s[i]
else if s[i] in ['0'..'9'] then s3:=s3+s[i]
else s4:=s4+s[i];
end;
write(s1,' ',s2,' ',s3,' ',s4);
readln;
end.