var k,i:longint;
    c,y:real;
begin
y:=1;
readln(c,k);
for i:=1 to k do begin  y:=y*10;end;
if (round(c/y)*y)=0 then writeln(y:13:0) else
writeln((round(c/y)*y):13:0);
end.