In message <20000501163349.A54803@linguist.dartmouth.edu>, Ronald J Kimball writes: : $n -= 2 ** int(log($n) / log(2)); $n &= ~(1 << int( log($n) / log(2) )); Greg ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe