type arr=record

        next:array['a'..'z'] of longint;

        w:longint;

        end;

const maxn=;

var T:array[..maxn] of arr;

    s:array[..maxn] of ansistring;

    i,j,m,n,now,num:longint;

begin

  while not eof do

    begin

      inc(n);

      readln(s[n]);

    end;

  num:=;

  for i:= to n do

    begin

      now:=;

      for j:= to length(s[i]) do

        begin

          if T[now].next[s[i][j]]<> then now:=T[now].next[s[i][j]] else

            begin

              inc(num);

              T[now].next[s[i][j]]:=num;

              now:=num;

            end;

          inc(T[now].w);

        end;

    end;

  for i:= to n do

    begin

      write(s[i],' ');

      now:=;

      for j:= to length(s[i]) do

        begin

          now:=T[now].next[s[i][j]];

          write(s[i][j]);

          if T[now].w= then break;

        end;

      writeln;

    end;

end.