kill(all)$

van=facebook.com/LearningCalculus$

imin:   0$ imax:   100$
cmin:   0$ cmax:   60$

outfile:"VanMaxima10.txt"$

filePtr:openw(outfile)$

for i: imin thru imax do
    for r: cmin thru cmax do
        for g: cmin thru cmax do
            for b: cmin thru cmax do
            (
                if((i*r+(i+1)*g+(i+2)*b) = 2048) then
                printf(filePtr, "        ~3d ~3d ~3d ~3d ~%", i, r,g,b)
            )$
close(filePtr)$