reset st cleartext penwidth 10 make "r 10 make "g 50 make "b 100 repeat 100000[ if :r > 255[make "r 5] if :g > 255[make "g 5] if :b > 255[make "b 5] make "r :r*1.1 make "g :g*1.2 make "b :b*1.3 color [:r :g :b] if getx >500 setx 0 if gety >500 sety 0 if getx <0 setx 500 if gety <0 sety 500 fw 3 rt 0.22223 print :r ]