#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")