#lang racket/gui
(define (save-as in out)
  (define bm (read-bitmap in))
  (send bm save-file out 'jpeg))

(save-as "coerce-before.png"
         "coerce-before.jpg")