to sierpinski :s
  ifelse (:s > 20) [
    repeat 3 [sierpinski (:s/2) fd :s*2 rt 120]
   ] [
    repeat 3 [repeat 3 [fd :s rt 120] fd :s*2 rt 120]
   ]
end