use strict;
use warnings;

# use Carp;
# BEGIN { $ENV{LIST_MOREUTILS_PP} = 1; };

use List::MoreUtils qw(apply);
while(1) {
    apply {} (1);
}