program Noname1;
var c1, c2, sk, sek, ats, skait : real;
begin
read(sk);
read(sek);
ats:= 0;
skait:= 0;
for c1:= 1 to sek do // kelintas skaicius
begin
for c2:= 1 to c1 do // kelintas skaitmuo
begin
skait:= skait * 10 + sk;
end;
 ats:= ats + skait;
 skait:= 0;
 
end;
  WriteLn(ats);
end.