1 to: 9000 do: [ :p | (p isPerfect) ifTrue: [ p printNl ] ]