type node=record

     w:longint;

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

     end;

var i,n,tot:longint;

    s:string;

    a,ans:array[..] of string;

    t:array[..] of node;

procedure getintree(s:string);

 var i,now:longint;

 begin

 now:=;

 for i:= to length(s) do

  begin

   inc(t[now].w);

   if t[now].go[s[i]]<> then now:=t[now].go[s[i]]

   else

    begin

     inc(tot);

     fillchar(t[tot].go,sizeof(t[tot].go),);

     t[now].go[s[i]]:=tot;

     now:=tot;

    end;

  end;

 end;

procedure check(s:string;x:longint);

 var i,now:longint;

     flag:boolean;

     st:string;

 begin

 now:=;i:=;

 flag:=false;

 st:='';

 repeat

 inc(i);st:=st+s[i];

 now:=t[now].go[s[i]];

 if t[now].w= then flag:=true;

 until (flag) or (i=length(s));

 ans[x]:=st;

 end;

begin

 while true do

  begin

   readln(s);if s='' then break;

   inc(n);a[n]:=s;

   getintree(s);

  end;

 for i:= to n do check(a[i],i);

 for i:= to n do writeln(a[i],' ',ans[i]);

end.