/* Generated by re2c */
// re2c $INPUT -o $OUTPUT -is
char *scan(char *p)
{

	{
		unsigned char yych;
		yych = (unsigned char)*p;
		if (yych <= '/') goto yy1;
		if (yych <= '9') goto yy2;
yy1:
		++p;
		{return (char*)0;}
yy2:
		yych = (unsigned char)*++p;
		if (yych <= '/') goto yy3;
		if (yych <= '9') goto yy2;
yy3:
		{return p;}
	}

}

