uses crt;
var s,n:string;
    d:array[0..1000] of string;
    i,j,t,ii,k:integer;
procedure swap(var str1,str2:string);
var s:string;
begin
    s:=str1;str1:=str2;str2:=s;
end;
function sosanh(var str1,str2:string):boolean;
begin
    if length(str1)>length(str2) then
        exit(false)
    else if length(str1)=length(str2) then
        if str1>str2 then
           exit(false);
    exit(true);
end;
begin
    clrscr;
    readln(n);
    for i:=1 to length(n) do
        t:=t+ord(n[i])-48;
    if t mod 3=0 then
        begin
            inc(k);
            d[k]:=n;
        end;
    for i:=1 to length(n)-1 do
        begin
            for j:=1 to length(n)-i+1 do
                begin
                    s:=n;t:=0;
                    delete(s,j,i);
                    while (s[1]='0') and (length(s)<>0) do delete(s,1,1);
                    for ii:=1 to length(s) do
                        t:=t+ord(s[ii])-48;
                    if length(s)<>0 then
                        if t mod 3=0 then
                            begin
                                inc(k);
                                d[k]:=s;
                            end;
                end;
        end;
    for i:=1 to k-1 do
        for j:=i+1 to k do
            if sosanh(d[i],d[j])=false then
                swap(d[i],d[j]);
    d[0]:='';
    for i:=1 to k do
        if sosanh(d[i],d[i-1])=false then
           writeln(d[i]);
readkey;
end.