my $x = 1/sqrt(5); for my $n (0 .. 28) { print int($x + 0.5), " "; $x *= (sqrt(5) + 1)/2; } print "\n";