var n,p,i:integer;
begin
read(n);
while n<>0 do begin
              p:=n mod 10;
              n:=n div 10;
              for i:=1 to p do write(p);
              writeln
              end;
              end.