$k=0;
while (<IN>){
    $values{$k} = [ split ];
    $k++;
}

$a = $values{$k}[0];
$b = $values{$k+1}[0];

#$a = 400;
#$b = 0.2; 

$x = 0.203-((1-0.203)/100);

for ($temp=1; $temp<102; $temp++){
	$x = $x+((1-0.203)/100);
	$y = $a+$x**$b;
	write OUT;
	print OUT2 "$x $y\n";