Can you tell me what is wrong with this program

*To*: mathgroup at smc.vnet.net*Subject*: [mg110337] Can you tell me what is wrong with this program*From*: satya <ktsatyajit at gmail.com>*Date*: Sun, 13 Jun 2010 18:52:27 -0400 (EDT)

c = 0; m = 0; z = 0; count = 0; for [lc = 0, lc < 8, lc++] { lc = lc + 1; for[lm = -4, lm < 8, lm++] { lm = lm + 1; for [lz = -4, lz < 8, lz++] { lz = lz + 1; A = (2*(lc - lm)*(lc - lm)) + 4*lz*lz; B = -2*(lc + lm)*lz; C = 4*lc*lm; if [A > 0] if[(B*B - A*C) > 0] { K1 = (B + sqrt (B*B - A*E))/A; K2 = (B - sqrt (B*B - A*E))/A; e = abs (lc); m = abs (lm); z = abs (lz); L = c + m + z; if [K1 <= 0.707 && K1 > 0 , print[n, L, lc, lm , lz, K1]] if [K2 <= 0.707 && K1 > 0 , print[n, L, lc, lm , lz, K2]] } } } } I get the following error Out[5]= for[0, True, 0] During evaluation of In[1]:= Set::wrsym: Symbol C is Protected. >> Out[6]= {{{{for[-4, True, -4]^2 if[ True] if[-48 C > 0] if[-E sqrt <= 0.707 && -E sqrt > 0, print[n, -4 abs, 2, -2, -2, -E sqrt]] if[ E sqrt <= 0.707 && -E sqrt > 0, print[n, -4 abs, 2, -2, -2, E sqrt]]}}}}