#!/usr/bin/perl
#perl.com documentation, functions, exponentiation

$a=3.40313;
$c=0.42834;
##@q=();  # empty vector ("list literal")
for ($n=0; $n<256; $n++) {
  #$f=$n/255;
  #$f=$n/256;
  #$f=$n/255.0000001; # last number too much bigger than all others
  $f=$n/256;
  $fpowcinv = $f**(1/$c);
  ## $q($n)=($fpowcinv/(1-$fpowcinv))**(1/$a);
  $q=($fpowcinv/(1-$fpowcinv))**(1/$a);
  #print $fpowcinv;
  print $q."\n";
  #print "\n";
}#end for