sub imap {
    my ($transform, $it) = @_;
    return Iterator {
        my $next = NEXTVAL($it);
        return unless defined $next;
        return $transform->($next);
    }
}