# enroulé.logo
initialise
lèvecrayon
av 50
baissecrayon
répète 4 [
pour x = 1 à 100 [
av 10
td 100 - x
]