Rat Fib

use bigrat;

my $ARGS = <STDIN>;
my ($counter, $seed1, $seed2) = split(/ /, $ARGS);

print "$counter repetitions: $seed1 $seed2 ";

my $next_to_last = Math::BigRat->new($seed1);
my $last = Math::BigRat->new($seed2);

for(1..$counter) {
  my $new = $last+$next_to_last;
  print "$new ";
  $next_to_last = $last;
  $last = $new;
}