my $x = Math::BigRat->new(1);

while  ($x < 2) {
  $x += $delta;
  print "$x\n";
}