test="var a=10;\nvar b,c;\nprocedure p; \n\tbegin\n\t\tc=a+b\n\tend\n"
print test
length=len(test)
for i in range(length):
if test in Kongbai:
continue
if test in Fenjiefu:
print "分界符\t",test
continue
if test in Yunsuanfu:
print "运算符\t",test
continue
if test[i-1] in Number:
continue
if test in Number:
print "数字\t",
while test in Number:
print test,
i+=1
print ''
if test[i-1] in Number or (test[i-1]>='a' and test[i-1]