High Level Locked Counter

high-level-locking.p6

use OO::Monitors;

monitor Increment {
	has $.counter;
	
	method increment( $thread ) {
		$!counter++;
		say "incremented in $thread";
	}
}

my $locker = Increment.new;
for ^100000 {
# using await works, probably because having two say calls occuring simultaneously can't happen?
#	await start {
	start {
			say "\t	gonna try to increment from $_ now";
			$locker.increment( $_ );
	}
}