;http://www.geocities.com/CollegePark/Lab/2276/codes.htm#1
to draw :side :level
  if :level<1[stop]
  repeat 4[shape rt 90]
  fill_it
end

to shape
  draw :side/3 :level-1
  fd :side/3
  draw :side/3 :level-1
  fd 2*:side/3
end

to fill_it
  pu rt 45 fd .7*:side
  setfc 5-:level 
  bk .7*:side lt 45 pd
end

draw 200 5