# 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