Select Code to Download

sub geometric {
    my @known = @_;
...
    return undef if scalar @next != 1;
    return $next[0];
}