program test(input,output);


 var t:text;
     len : integer;
     rest:string[80];
     blank : char;
 begin
     assign(t,'a:s.dat'); reset(t);
     writeln(' '); writeln ('**');
     while not eof(t) do begin
           read(t,len,blank,rest);
           writeln(len,' ',rest);
           end
   end.