Type
  Int=Integer;
  mas=Array[1..100] of String;
  St=String;
  mno=set of char;
Label 1;
 Var
  f,g:Text;
  a:mas;
  m:mno;
  s,b,s1:st;
  n,i,j,k:Int;
Begin
  ClrScr;
  Assign(f,'c:\input.txt');
  Assign(g,'c:\output.txt');
  Reset(f);
  Rewrite(g);
  Readln(f,n);
  For i:=1 to n do
   Begin
    Readln(f,s);
    a[i]:=s;
   End;
  1:For i:=1 to (n-1) do
   If a[i]>a[i+1]
    Then
     Begin
      b:=a[i];
      a[i]:=a[i+1];
      a[i+1]:=b;
      GoTo 1;
     End;
  Writeln(g,a[1]);
  b:=a[1];
  For j:=2 to n do
   Begin
    i:=1;
    While (Copy(a[j],1,i)=Copy(b,1,i))
     and (i<=Length(a[j])) and (i<=length(b)) do
      Inc(i);
    If i=1 Then k:=0 Else k:=i-1;
    b:=a[j];
    Delete(a[j],1,k);
    str(k,s1);
    a[j]:=s1+a[j];
   End;
  For i:=2 to n do
   Writeln(g,a[i]);
  Close(g);
End.