#!/usr/local/bin/perl5
$x = 0.2;
$y = 0.3;

for($i=0;$i<10000;$i++) {
       print "$x $y\n";
       ($x,$y) = (1.0+$y-1.4*$x*$x,0.3 * $x);
}
