#;
(exn-pred exn:fail:contract? #rx".*produced: 3" #rx".*promised: String.*" )

#lang typed/racket/base

(cast 3 String)