TO CROSS :X :L
	IF :L = 0 STOP
	REPEAT 4 [FD :X CROSS :X / 2 :L - 1 BK :X RT 90]
END

TO BLIP :X :L
	IF :L = 0 FD :X STOP
	BLIP :X / 3 :L - 1 LT 60
	BLIP :X / 3 :L - 1 RT 120
	BLIP :X / 3 :L - 1 LT 60
	BLIP :X / 3 :L - 1
END

TO KOCH :X :L
	REPEAT 3 [BLIP :X :L RT 120]
END