to picture :times
 home
 cs
 ht
 pu
 bk 140
 pd
 subpict :times
end

to subpict :i
 if (:i > 0)
 [
  fd (power 2 (:i - 1)) * 10
  lt 45
  subpict :i - 1
  rt 90
  subpict :i - 1
  lt 45
  bk (power 2 (:i - 1)) * 10
 ]
end