sub is_numeric { ($_[0] & ~ $_[0]) eq "0"; }