my $empty = new Coro::State;
my $other;

$other = new Coro::State sub {
   print "hi\n";
   $other->transfer ($empty);
};

$empty->transfer ($other);