1 (define (apply-generic op . args)
2   (define (can-coerce-into? types target-type)
3     (andmap