var n:longint;
    f,g:text;
procedure scrie(k:qword);
var i,nr:longint;
d:qword;
st:string[15];
c:array[1..15] of byte;
begin
nr:=0;
while (k>0) do
 begin
 inc(nr);
 d:=k div 10;
 c[nr]:=k-10*d+48;
 k:=d;
 end;
for i:=nr downto 1 do st[nr-i+1]:=chr(c[i]);
st[0]:=chr(nr);
writeln(st);
end;
begin
assign(f,'sum.in');reset(f);
assign(g,'sum.out');rewrite(g);
       readln(f,n);
       scrie;
close(g);
end.