/* cuiscntg.tc - 12/8/8 - lrb

cuisfe [
int offset
pl "";ps "number? ";offset=gn;cuiscntg offset
]

cuiscntg int offset

[

/* "lazy man's" way to count the number of rods
/* or the total length of the rods etc.

int c(9),t(0),tt,i

/*              1111111111222222222
/*    01234567890123456789012345678

c(0)="10 orange       x  8   =    80"
c(1)=" 9 boo          x  8   =    72"
c(2)=" 8 brown        x  8   =    64"
c(3)=" 7 black        x  7   =    49"
c(4)=" 6 green        x  8   =    48"
c(5)=" 5 yelloh       x 10   =    50"
c(6)=" 4 alizarin     x 12   =    48"
c(7)=" 3 light green  x 18   =    54"
c(8)=" 2 red          x 24   =    48"
c(9)=" 1 wood kuller  x 41   =    41"

for (i=0;i<10;++i)

[ /* 1

atoi(c(i)+offset,t);pn(tt=tt+t(0))

] /* 1

]