#include	"defs.h"

number(s) 
	REG STRING s;
{
	if(*s) {
		if(*s=='-')s++;
		while(digit(*s)) s++;
		return(*s==0);
	}
	else
		return(0);
}