Program onldotsN2;

var input:longint;
var a, b, c, d, i:longint;

begin
  readln(input);
  a := Abs(input) mod 10000 div 1000;
  b := Abs(input) mod 1000 div 100;
  c := Abs(input) mod 100 div 10;
  d := Abs(input) mod 10;
  i := Abs(a)+Abs(b)+Abs(c)+Abs(d);
  write(i*1000+i*100+i*10+i);
end.