uses crt;
var s:string;
    i,j,k,n:byte;
    c:char;
    kt:boolean;
begin
    clrscr;
    readln(s);
    n:=length(s);
    for i:=1 to n-1 do
        for j:=i+1 to n do
            if s[i]<s[j] then
            begin
                c:=s[i];s[i]:=s[j];s[j]:=c;
            end;
    while length(s)<>0 do
    begin
        n:=length(s);
        kt:=false;
        for j:=2 to n-1 do
        begin
            if kt=true then break;
            for k:=j+1 to n do
                if ord(s[1])=ord(s[j])+ord(s[k])-48 then
                begin
                    write(s[1],s[j],s[k],';');
                    kt:=true;
                    break;
                end;
        end;
        c:=s[1];
        while (s[1]=c) and (length(s)<>0) do delete(s,1,1);
    end;
    if wherex=1 then writeln('KHONG CO');
readkey;
end.

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.