List Generator

sub fib-generator($n) { state @fib = 0, 1, * + * ... *; return @fib[$n]; }