#!/usr/bin/perl

use strict;
use Coro::Continuation;

my $rval;
my $c = continuation {
  print "A\n";
  $rval = 5;
  my $x = yield 5;
  print "B ($x)\n";
  $x = yield 10;
  print "C ($x)\n";
  yield 15;
};

my $d = continuation {
  print "Z\n";
  my $x = yield 5;
  print "Y ($x)\n";
  $x = yield 10;
  print "X ($x)\n";
  yield 15;
};

print "a\n";
my $r = $c->('1');

print "a2\n";
$r = $d->('1');


print "b ($r)\n";
$r = $c->('2');
print "c ($r)\n";
$r = $c->('3');
print "d ($r)\n";