sub isnum ($) { $_[0] ^ $_[0] ? 0 : 1 }