(define (nombres n)
  (local [ (define scene (empty-scene 400 400 "black"))
           (define nombre (random 1 100))]
    (cond ((= n 1)
           (place-image (text "1" 18 "red") (random 1 400) (random 1 200) scene))
          ((even? nombre)
           (place-image (text (number->string nombre ) 18 "red") (random 1 400) (random 200 400) (nombres (- n 1))))
          (else
           (place-image (text (number->string nombre) 18 "red") (random 1 400) (random 1 200) (nombres (- n 1)))))))