to kochflocke :s make "dx sqrt(3*:s*:s/4) make "dy :s*1.5 pu bk :dy rt 90 bk :dx lt 90 repeat 3 [koch :s pu fd 3*:s rt 120] rt 90 fd :dx lt 90 fd :dy end