var f,g:text;
    a,b:array[0..1000] of longint;
    i,j,nr,pos,inv,n:longint;
    c:char;
begin
 assign(f,'cifre.in'); reset(f);
 assign(g,'cifre.out'); rewrite(g);
 while not(eoln(f)) do begin
  read(f,c);
  inc(a[0]);
  a[a[0]]:=ord(c)-ord('0');
 end;
 read(f,n);
 for i:=1 to n do begin
  j:=1;
  b[0]:=0;
  while j<=a[0] do begin
   pos:=j;
   while (a[j]=a[j+1]) and (j<a[0]) do
    inc(j);
   nr:=j-pos+1;
   inv:=0;
   while nr<>0 do begin
    inv:=inv*10+nr mod 10;
    nr:=nr div 10;
   end;
   while inv<>0 do begin
    inc(b[0]);
    b[b[0]]:=inv mod 10;
    inv:=inv div 10;
   end;
   inc(b[0]);
   b[b[0]]:=a[j];
   inc(j);
  end;
  for j:=0 to b[0] do
   a[j]:=b[j];
 end;
 for i:=1 to b[0] do
  write(g,b[i]);
 writeln(g);
 close(f); close(g);
end.