# spread test, ksh style
compound c;

integer -a c.ar

integer i z

for (( i=0 ; i < 65536 ; i++ )) ; do
        (( z=i , (z%3==0) && c.ar[((z >> 4)&0x0F)*3][(z&0x0F)*7]++ ))
done

print -v c
# EOF.