var a,b,d:array[0..10000007] of longint;
i,n,c,l:longint;
begin
readln(n);
for i := 1 to n do read(a[i]);
for i := 1 to n do
begin
if (a[i] mod 2 = 0) then
begin
inc(c);
b[c] := a[i];
end
else
begin
inc(l);
d[l] := a[i];
end;
end;
for i := 1 to c do
writeln('So chan ',b[i]);
for i := 1 to l do
writeln('So le ',d[i]);
writeln('So cac so chan ',c);
writeln('So cac so le ',l);
readln; readln;
end.