to cubelist l=[] for [k 0 1][for [i 0 1][for [j i 1-i][queue "l (list i j k)]] queue "l (list 0 0 k)] for [k 0 1][for [i 0 1][for [j i 1-i][queue "l (list k i j)]] queue "l (list k 0 0)] cs setps [0 0] perspective foreach l [setPosXYZ ?*100 wait 10 updategraph] print l end