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