program mn;
uses crt;
var s:text;
g:string;
i,n,h:integer;
a:array[1..100]of string;
BEGIN
ClrScr;
assign(s,'text.txt');
reset(s);
While not eof(s)do
begin
readln(s,g);
inc(n);
h:=length(g);
a[n]:=g;
str(h,g);
a[n]:=a[n]+g;
end;
reset(s);
rewrite(s);
for i:=1 to n do
writeln(s,a[i]);
close(s);
readln;
END.