use strict;
use warnings;

use Carp 'carp';
use Coro;

$\ = $/;

sub A {
    my $a = 1;
    async {
	print $a++;
	carp;
	cede;
	print $a++;
    }
    print $a++;
    carp;
    cede;
    print $a++;
}

A;