use strict;
use warnings;
use Coro;

my $ca = async {
    print "coro a\n";
    cede;
}

my $cb = async {
    print "coro b\n";
    cede;
}

print "In main\n";
cede;
print "Back in main\n";
__END__
In main
coro b
coro a
Back in main

##</code><code>##

# coro definitions of $ca and $cb as above
my $main = Coro::current;

$main->prio(2);
$ca->prio(3);
cede;

print "In main\n";
__END__
In main