toolong pascal

const fi='toolong.inp';fo='toolong.out';
var n:longint;s:string;

Procedure giai;
Begin
    readln(s);
    If length(s)<=10 then writeln(s)
    Else
        Writeln(s[1], length(s) - 2, s[length(s)]);
End;

BEGIN
   assign(input,fi);reset(input);
   assign(output,fo);rewrite(output);
   Readln(n);
   For i:=1 to n do
        giai;
end.