to c
make "r 50 - random 100
if :r = 0 [make "r c
op :r
end

to mol
cs setshape 87
stamp repeat 5 [setpos3d (list c c c) stamp
setzoom 2
repeat 72 [rotateyaxis 10
end

make "t 6
repeat 10 [setpc :t make "t :t + 1 mol


