sub MAIN($limit as Int) {
    say (0, 1, *+* ... *)[$limit];
}

##</code><code>##

perl6 fib.pl 8