/* ed.tc - lrb - 1/26,28/2008 - 7/6/2010
ed [
int i,j,k,l
if !(version()>=4) [
  pl "tiny-c version 4 or higher is required.";pl ""
  return
  ]
else [
  pl "tiny-c version";pn version;ps " is running.";pl ""
  ]  
pl "test #1 (single for loop)";pl ""
pl "enter a number from 1 to 31 : ";k=gn;pl ""
for (i=1;i<=k;++i) [
  ps "i=";pn i;pl ""
  ]
pl "test #2 (nested for loops)";pl ""
pl "enter a second number from 1 to 31 : ";l=gn;pl ""
for (i=k;i>0;--i) [
  for (j=l;j>0;--j) [
    ps "i=";pn i;ps " j=";pn j;pl ""
    ]
  ]
]