take()'s return value

[Gabriele Renzi]

Hi everyone,

I wonder: why does take inside a gather structure returns undef?
I think it would be nicer if it could return the taken value, so that,
for example one can write something like:

say take 2

or like:

while cond($n) {
my $res = compute($n)
$n /= take($res)
}

there is a reason why this is a completely stupid idea?