var s:string;
    i,j:byte;
begin
readln(s);j:=0;
for i:=1 to length(s) do
if (s[i]>='0')and(s[i]<='9') then
j:=(j+ord(s[i])-ord('0'))mod 3;
if j=0 then writeln(2)
else begin writeln(1);writeln(j) end;
end.