sub isnum ($) {
	return 0 if $_[0] eq '';
	$_[0] ^ $_[0] ? 0 : 1
}