program Hello;
uses crt;
var i,j,b,c,e:byte;
s,a,bo,l:string;
begin
readln(s);
for i:= 1 to length(s) do
for j:= 1 to length(s) do
if s[i] <> s[j] then
begin
val(s[i],b,e);
val(s[j],c,e);
if (b + c) < 10 then str(b + c, a);
if (pos(a,s) > 0) and (pos(a,l) = 0) then
if (pos(a + s[i] + s[j], bo) = 0) and (pos(a + s[j] + s[i], bo) = 0) then
begin
bo:= bo + a + s[i] + s[j] + '; ';
l:= l + a;
end;
a:='';
end;
if bo = '' then
writeln('Khong co')
else
writeln(bo);
readln;
end.