#!/usr/bin/env raku

use v6.d;

sub plus-one {
    $number++;

    say $number;

    return if 100 < $number;

    plus-one;
}

sub MAIN {
    my Int $number = 42;

    plus-one;
}