Select Code to Download

  sub identity is lazy {
     my @i = 1..Inf;
     return @i[shift @_];
  }

   sub returnlazy is lazy {
       return map { 2*n } 1..Inf;
...
   }
   my $se = ntheven(17);
   print "The seventeenth even number is $se.\n";