#!/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;
}