return 0 if $_[0]=~/\D/;