sub apply {
        my $fn = shift;
        return sub {
            $fn->(@_);
        }
    }

    sub apply_to_each {
        my $fn = shift;
        return sub {
            map { $fn->($_) } @_;
        }
    }