Muller's Recurrence

sub rec (\y, \z) { 108 - (815-1500/y)/z }

sub pt (::T) { 4, my T $z = 4.25, &rec … Inf }
  
sub fatrat  { pt FatRat()  }
sub rat     { pt Rat() }
sub flt     { pt Num()     }

for « 1 2 7 8 14 28 39 53 1000 » -> \i
{ printf "%-4s | %-18s | %-17s | %s\n",
          i,     flt[i], rat[i], fatrat[i] }