home
setbackground 0
clearscreen
to branch :s
  make "red random 255
  make "green random 255
  make "blue random 255
  setpc (list :red :green :blue)
  if :s < 0.01 [Stop]
  lt 45 fd :s branch :s * 0.5 bk :s rt 45
  rt 45 fd :s branch :s * 0.5 bk :s lt 45
end
branch 190