| numero ample x y spirale tamponne| x := y := ample := numero := 0. tamponne := [ numero := numero + 1. numero isPrime ifTrue: [(spirale point: x@y) square; name: numero]]. spirale := DrGeoCanvas new. tamponne value. 10 timesRepeat: [ ample := ample + 1. ample timesRepeat: [ x := x + 1. tamponne value]. ample timesRepeat: [ y := y + 1. tamponne value]. ample := ample + 1. ample timesRepeat: [ x := x - 1. tamponne value]. ample timesRepeat: [ y := y - 1. tamponne value]]