var
a, z: real;
X:array[1..20] of real;
i: integer;
begin
readln(a, z);
X[1] := a;
for i:=2 to 20 do
X[i] := X[i-1] * z;
for i:=1 to 20 do
writeln(X[i])
end.
var
a, z: real;
X:array[1..20] of real;
i: integer;
begin
readln(a, z);
X[1] := a;
for i:=2 to 20 do
X[i] := X[i-1] * z;
for i:=1 to 20 do
writeln(X[i])
end.