; Koch Snowflake

to KochIsland :size :level
	repeat 3 [KSide :size :level rt 120]
end 

to KSide :size :level
	if :level = 0 [fd :size stop]
	KSide :size / 3 :level - 1
	lt 60 KSide :size / 3 :level - 1
	rt 120 KSide :size / 3 :level - 1
	lt 60 KSide :size / 3 :level - 1
end