use strict;
use warnings;

use Math::BigFloat;
use Math::BigInt;

my @list;
my $a = Math::BigInt->new(1);
my $b = Math::BigInt->new(1);
my $c = Math::BigInt->new(0);

for(my $i = 0;$i < 1000;$i++){

	$c = $a->badd($b);
	$a = $b;
	$b = $c;
	
	push @list, $c;
	
}

my $Evens = -2;
my $Odds  = -1;
my $Interval = 2;


for(my $i = 0;$i < ($#list/2);$i++){
	
	$Odds  += $Interval;
	$Evens += $Interval;
	
	my $x = Math::BigFloat->new($list[$Odds]);
	$x->bround(100000);
	print $x->bdiv($list[$Evens]);
	print "\n";
	
}