#!/usr/bin/perl

use strict;
use Coro::Cont;

my $double = csub {
  my $count = 0;
  while(1) {
    yield $count;
    $count++;
  }
};

while(1) {
  print $double->() . "\n";
}