function Sum(a: string) : integer;
begin
  var len := Length(a);
  Result := 0;
  for var i := 1 to len do
  begin
    var err := 0;
    var v := 0;
    val(a[i], v, err);

    if (err <> 0) then
    begin
      writeln('Ошибка = ', a[i]);
      exit();
    end;

    writeln(Result.ToString(), ' + ', a[i], ' = ', Result + v);
    Result := Result + v;
  end;
end;

var
  b: string;
begin
  readln(b);
  var r := Sum(b);
  writeln(r);
  while (Length(r.ToString()) > 1) do
  begin
    r := Sum(r.ToString());
    writeln(r);
  end;
end.