
TO carre :size
	REPEAT 4 [
		FORWARD :size
		RIGHT 90
	]
END

CLEAR

PENDOWN
$carre(50)
PENUP

